
SONDERHEFT 43 W 14000/^ ):DM14,- 


Ausgewählt 


Tips&Took' 
für jedene 

■Sprites ohne Grenien 
■Jetzt neue Level für 
das Supei^Spiel *: 
»Crillion« 


Markt&Technik 


AM 






Aufsteiger 


30-Seiten-Kur$ 

toic jfür 


Workshop 

Giga-Publish 

leidttgemadit 

■Schrin für SchriH zum DTP-Profi 
■Das Ende der Drucker- 
Probleme 


Knobel-Ecke 

■Auflösung: 

)ie Sieaer der ersten 
Aufgabe 

Mono llAmiicfAMlAviinn 










































EDITORIAL 





REIF 
FÜRS MUSEUM? 


D ie Entwicklung immer schnellerer, leistungsfä¬ 
higerer und preiswerterer Computer ist nicht 
aufzuhalten. Personal Computer stoßen heute 
in Preisbereiche vor, die früher den Homecomputern 
Vorbehalten waren. Wird der C64 damit bald nur 
noch in den Ausstellungsräumen der Museen in aller 
Welt zu finden sein? 

Die aktuellen Verkaufszahlen sagen etwas ande¬ 
res: Nach wie vor zählt der C 64 zu den Spitzenreitern 
in der Gunst des Käufers. Ein wesentlicher Grund 
für seine Beliebt¬ 
heit ist das konkur¬ 
renzlose Preis-/Lei- 
stungsverhältnis, 

Wie aktuell, Kon¬ 
kurrenz- und wandlungsfähig der C 64 heute ist, zei¬ 
gen die beiden folgenden Beispiele; 

■ Mit keinem anderen Computer ist der Einstieg in 
moderne Formen der Telekommunikation wie Bild¬ 
schirmtext (Btx) oder Datenfernübertragung (DFÜ) 
so preiswert wie mit dem C 64. or.Ln 

■ Desktop Publishing (DTP), bisher eine Domäne 
für einen schnellen AT oder Apple Macintosh, ist für 
den C64 längst kein Fremdwort mehr. Unser Work¬ 
shop zum DTP-Programm Giga-Publish beweist die 
Leistu ngsfähigkeit des C 64. 

Wie intensiv sich unsere Leser mit dem C64 be¬ 
schäftigen, zeigen die vielen Tips & Tricks, die uns je¬ 
den Tag erreichen, Eine Zusammenstellung der be¬ 
sten Tips finden Sie in diesem Sonderheft. 

Egal, welche neuen Entwicklungen 
die Zukunft bringen wird - 
das Museum muß warten... 


Ihr Elmar Friede 
(Redakteur) 
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Mit dem »Charakter-Editor» erzeugen Sie interessante 
Hintergrundgrafiken für eigene Spiele. Seite 16 
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Wenn Ihnen die 25 Level von »Crillion» nicht mehr 
ausreichen: Der Leveieditor sorgt für immer neue 
Herausforderungen. Seite 149 
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Der Bildschirm als Kaleidoskop: Auf fraktaler Basis 

entstehen wahre Kunstwerke mit unterschiedlichsten ^ ^ 

Formen H 6 


Universeller Zelchensatz-Editor 

Mit dem »Character-Editor» entwickeln Sie mühelos 

ein- oder mehrfarbige Zeichensätze oder Hinter- . _ 

grundgrafiken für Spiele H IO 
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Giga-Publish 

Unser Workshop zu »Giga-Publlsh« begleitet Sie _ _ _ 
Schritt für Schritt auf dem Weg zum DTP-Profi H 30 


Centronlcs-lVelber für Giga-Pubilsh 
Der neue Software-Treiber mit einem Centronics/ 
User-Port-Kabel bereitet vielen Druckproblemen bei _ ., 
»Giga-Publlsh« ein Ende H 41 
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Der Weg zum richtigen Ton 

Lernen Sie alle Grundlagen kennen, mit deren Hilfe _ . _ 
Sie tolle Soundeffekte programmieren können II 42 



Be«in für Aufsteiger 

tAlfenii Sie Strings und Variablen geschickt nutzen 
wollen und sich bereits an die Programmiersprache 
Basic herangewagt haben, dann ist unser Kurs 
wie geschaffen für Sie 


U 50 
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Erstellen Sie Ihr Disketten-Menü selbst 
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Provic 64 

Darstellung von 32 Sprites in vier Bitdschirm- 
bereichen - mit »Provic 64« kein Problem 

H 90 

Maskengenerator für Verwöhnte 

Das Gestalten von Bildschirmmasken wird mit 
diesem Editierprogramm zum Kinderspiel 

B 94 

Knobelecke 

Auflösung der Knobelecke 1 

Die Gewinner der ersten Knobelecke aus dem 
Sonderheft 40: Die pfiffigen Lösungswege werden 
ausführlich beschrieben. 

99 

Knobelecke 2 

Stellen Sie sich der neuen Herausforderung? 
Attraktive Preise warten wieder auf die Sieger. 

103 

Tips & Tricks 

Rasterinterrupt - nicht nur für Profis 

Wie Oie Programmierung von Raster-Interrupts 
funktioniert, erfahren Sie anhand eines ausführlich 
dokumentierten Beispietprogramms 

B104 
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Crilllon - der unendliche SpielespaB 

Mit dem komfortablen Editor lassen sich die 25 Levei 


von »Crilllon- jederzeit neu gestalten. Abwechslung 

Ist für viele Stunden garantiert 

11149 

Eingabehilfen 

Checksummer V3 und M5E 

Diesen Artikel sollten Sie unbedingt lesen, wenn Sie 
Programme aus diesem Sonderheft abtippen wollen 
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32 Sprites gleichzeitig - nutzen Sie den gesamten 
Bildschirm mit »Provic 64«. Seite 90 




Das Schatzkästchen 

Zusammenstellung der besten Tips & Tricks, die das . _ _ 
Programmieren erleichtern H120 


Das erste Lebenszeichen 

Wissen Sie, was in Ihrem Computer nach 

dem Einschalten vor sich geht? l13 

Tips & Ttlcks für Basic-Programmierer 

Gestalten Sie Ihre Basic-Programme schneller a 

und effektiver Hll^ 


Sprites ohne Grenzen 

Den gesamten Bildschirm Können Sie mit 

»Hyperscreen« für die Darstellung von Sprites 

und Laufschriften nutzen HllO 
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Spielen ohne Ende 

Verzweifeln Sie nicht an den Spielen aus den 
Sonderheften 37 oder 42: Hier finden Sie die 
POKEs, mit denen Sie jedes Spiel meistern. 


146 




Greifen Sie zu: Das Schatzkästchen 
ist mit den besten Tips und Tricks 
zu jedem Zweck gefüllt. Seife 120 


Eindrucksvolle Einladungen 
sind für das DTP>Programm 
»Qiga-Pubtish« kein Problem. 
Unser Workshop 
zeigt, wie es geht. 


Seite 30 






























GRAFIK 



Nach der Pop-Art nun die Computer-Art. Unser 
Programm eizeugt ansprechende Grafiken auf 
fraktaier Basis. Anhand einfacher mathemati¬ 
scher Vorschriften werden fiüssig ineinander 
übergehende Biider mit variablem Aussehen er¬ 
zeugt. Lassen auch Sie sich in ihren Bann ziehen. 


Di 




as müssen Sie erlebt haben: Verschiedene Ellipsen 
I bewegen sich wie in einem Kaleidoskop, drehen sich, 

' wandern, neue Figuren kommen dazu, alte verschwin¬ 
den wieder, geheimnisvoll wandern Formen aller Art über 
den Bildschirm Ihres C64 oder C128- und das alles in Echt¬ 
zeit! Schauen Sie sich nur einmal die Bilder 1 und 2 an, die 
eine (leider nicht bewegte) kleine Kostprobe der vielfältigen 
Möglichkeiten bietet. 

Bevor Sie in den Genuß der «Computer-Art« kommen, 
müssen Sie allerdings zwei kleinere Programme eingeben 
und speichern. Listing 1 ist das Basic-Steuerungspro- 
gramm, das Sie bitte mit dem Checksummer eingeben und 
unter dem Namen »C-ART« speichern. Es stellt die Schnitt¬ 
stelle zu Listing 2 (mit dem MSE eingeben, siehe Seite 159) 
her, das die Schwerstarbeit der Grafikerzeugung erledigt. 

Wenn Sie beide Listings abgetippt haben, kann es losge¬ 
hen. Laden und starten Sie das Basic-Programm mit den 
Befehlen 

LOAD "C-ART",8,0 <RETURN> i . 

RUN < RETURN > 

Nach dem Start befinden Sie sich im Hauptmenü. Dort 
stehen sechs Funktionen zur Auswahl, die Sie durch Druck 
auf die entsprechende Zifferntaste <1 > bis <6> aufrufen: 

1. Grafik-Parameter: 


Blldl. 
Solche Bilder 
sind schnell 
berechnet 



Dieser Menüpunkt dient dazu, die Farben des Bildes ein¬ 
zustellen. Der Computer nimmt hier, wie im gesamten Pro¬ 
gramm, nur Werte an, die innerhalb der erlaubten Grenzen 
liegen. Eingaben schließen Sie jeweils mit Druck auf < RE¬ 
TURN > ab. 

Folgende Farben stellen Sie hier ein (erlaubte Werte sind 
die von 0 bis 15): Rahmenfarbe, Hintergrundfarbe, drei Zei¬ 
chenfarben (Farbe Z und 3 nur für Multicolor-Modus). Der 
Wert von »Compound« (Bereich: 0 bis 127) legt fest, wie vie¬ 
le Figuren fixiert, also unabhängig von der Einstellung von 
»Bildwiederholung« (siehe unten, Prozeßparameter) (nur) 


V 




genau einmal gezeichnet werden sollen, Die Voreinstel¬ 
lung für diesen Wert Ist 0. 

2. Rechenparameter: 

Dies sind die eigentlichen Steuerparameter, die den 
größten ElnflußaufdasAussehen der Figuren ausüben. «X- 
Fract« darf Werte von 1 bis 7 annehmen und entspricht dem 
X-Radius (waagerecht) der Bilder. Analog lat «Y-Fract« der 
Radius in Y-Richtung (senkrecht). Als Radius ist in beiden 
Fällen der Wert 2 voreingestellt. »X-Vorzeichen« und »Y- 
Vorzeichen« legt die Feinstruktur des Bildes fest. Die Vor¬ 
einstellung 1 liegt innerhalb der erlaubten Grenzen 1 bis 3. 


Die »Krümmung« schließlich nimmt entweder den vorein¬ 
gestellten Wert 1 oder die Null an und bestimmt die Ge¬ 
samtcharakteristik des Bildes. Falls der Wert 0 gewählt 
wird, müssen sich X-Fract und Y-Fract unterscheiden. 

Genauere Erklärungen zu diesen Parametern würden 
mathematisch zu weit führen. Es ist viel sinnvoller, einfach 
einmal die Wirkung an einigen Bildern auszuprobieren. 

3. Prozeßparameter: 

Diese Einstellungen steuern den Rahmenablauf. Die 
Werte legen dabei den Ort und die Häufigkeit des Auftre¬ 
tens der Figuren auf dem Bildschirm fest. 
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WERKE 



Blid 2. 
Finden Sie das 
nicht auch 
faszinierend? 


Für »Bildwiederholung« legen Sie fest, wie oft jede ein¬ 
zelne Figur gezeichnet werden soll, Beim ersten Zeichen¬ 
vorgang wird die Figur erzeugt, beim zweiten Vorgang wie¬ 
der gelöscht und so weiter. Daher bleibt jede Figur auf dem 
Schirm stehen, wenn Sie hier eine ungerade Zahl einge¬ 
ben, Der erlaubte Bereich erstreckt sich von 1 bis 255, vor¬ 
eingestellt ist 3, 

Beachten Sie. daß eine bestimmte Anzahl von Grafiken 
am Anfang, die mit »Compound« festgelegt wird, grund¬ 
sätzlich nur einmal gezeichnet und nicht gelöscht wird. 

Die »Farbstetigkeit« legt (nur Im Multicolor-Betrieb) fest, 
nach wie vielen Punkten die Zeichenfarbe gewechselt wer¬ 


den soll. So werden nacheinander die drei Zeichenfarben 
durchgespielt, danach beginnt der Computer wieder bei 
der ersten. Die Farbstetigkeit liegt zwischen 1 und 255, De¬ 
faultwert ist 1. »Bildpause« gibt an, wie lange ein Motiv min¬ 
destens auf dem Schirm zu sehen sein soll, Zeitbasis ist 
hier etwa Vi 2 o Sekunde. DerWert liegt zwischen 1 und 255, 
Voreinstellung ist 18. 

Die »X-Grenze« bestimmt die Größe des Zeichenfensters 
in X-Richtung und nimmt Werte zwischen 1 und 320 an 
(Voreinstellung 160). Gleiches gilt für die »Y-Grenze« (1 bis 
200, Voreinstellung 100). Der Bereich der beiden »Spiegel¬ 
achsen« ist derselbe wie der bei der jeweiligen Grenze, die 

7 


SONDERHEFT 43 






GRAFIK 


Achsen sind auf die Maximalwerte eingestellt. Sie bestim' 
men, an welchen Achsen die Punkte gespiegelt werden 
sollen, um den »Kaleidoskop-Effekt« zu erzeugen. Es muß 
der doppelte Wert eingegeben werden: Um etwa an der 
Achse X=100 zu spiegeln, muß für die X-Spiegelachse 200 
eingegeben werden. 

4. Start Muiticolor und 5. Start Hires: 

Drücken Sie die Tasten < 4 > oder < 5 >. werden die Bil¬ 
der berechnet. Sie können dies auf dem Schirm verfolgen. 
Im Multicolor-Modus Ist die Auflösung nicht ganz sogut, da¬ 
für werden im Gegensatz zum hochauflösenden Modus 
(Hires) nicht eine, sondern drei Punktfarben verwendet. 
Das Bild kann mit der Taste <RUN/STOP> angehalten 
und mit <Q> ganz abgebrochen werden. Im letzteren Fall 
erscheint wieder das Menü des Programms. 

6. Programmende: 

Ein gutes Programm muß natürlich auch wieder verlas¬ 
sen werden können. Nach Betätigung der Taste <6> er¬ 
scheint ein allgemeinverständlicher Abschiedsgruß, das 
Programm kann mit RUN wieder gestartet werden. 

Leider fehlt dem Programm eine Druckfunktion. Es ist je¬ 
doch nicht weiter schwierig, eine Grafik zu drucken. Der 

Hinter den Kulissen 


Grafikspeicher liegt unter dem Basic-ROM und kann zum 
Beispiel mit dem »Hardmaker« (64’er-Magazin, Ausgabe 
4/87) sehr bequem ausgelesen und gedruckt werden. 

Noch ein kleiner Tip für sehr anspruchsvolle Genießer: 
Wählen Sie eine »weiche« Farbkombination (z.B. Schwarz- 
Blau) und betrachten Siedle Bildsequenzen in einem abge- 
dunkellen Raum aus einiger Entfernung mit eine?, guten - 
Tasse Tee. Es lohnt sichl 

Natürlich ist es sehr interessant, wie so ein Programm ar¬ 
beitet. Wir haben daher in Listing 3(nicht abtippen!) die Ma¬ 
schinenroutine aus Listing 2 für Sie dokumentiert. Wenn 
Sie Ambitionen dazu haben, ähnliche Programme selbst 


Kurzinfo: Computer-Art 


Programmart: Grafik-Programm 
Laden: LOAD 'C-ART",8 

Start: Nach dem Laden RUN eingeben. Der Maschinensprache-Teil 
»C-ART.MC< wird vom Steuerprogramm automatisch nachgeladen. 
Besonderheiten: Listing 3 Ist der kommentierte Quellcode des 
Maschinensprache-Programms, den Sie bitte nicht abtippen. 
Programmautoren: Claus Faber und Johannes Bernd 


ZU programmieren oder sich nur für den Aufbau interessie¬ 
ren, sollten Sie sich Listing 3 genauer ansehen. Es ist recht 
lehrreich. Genauere Informationen dazu sind nicht mehr 
notwendig, der Kommentar ist recht genau. Daher soll hier 
nur ganz grob die Funktionsweise erklärt werden. 

Nach dem Aufruf mit SYS 49152 (in Basic, Zeile 970) wird 
eine Hauptroutine von ScOOO bis $c05b aktiviert, die per 
JSR-Befehl nacheinander verschiedene Hilfsprogramme 
aufruft. 

Zunächst werden die Grafik gelöscht, eingeschaltet und 
die Farben gesetzt. Bei $c042 wird dann die Haupt-Re¬ 
chenroutine ab $cl9a aufgerufen. Nach dem Abbruch mit 
< Q > schaltet das Maschinenprogramm die Grafik wieder 
aus und kehrt zu Basic zurück. 

Nun zu den Unterroutinen. Eine zentrale Bedeutung hat 
die Routine ab $c066, die einen Punkt in der Grafik inver¬ 
tiert. Die Koordinaten werden in den Prozessorregistern 
übergeben. 

Aufgerufen wird die PLOT-Routine von dem Programm- 
teil, der vier symmetrische Punkte setzt. Diese Routine, die 
das Testen auf den erlaubten Bereich und die Spiegelung 
an den zwei Achsen durchführt, beginnt bei $c0c4. Von 
$c132 bis $c199 stehen drei Standardroutinen, die jeder 
,-Griafil^?grammierer kennen wird. Sie löschen den Grafik- 
speicrier, der von $a000 bis $bfff unter dem Basic-ROM 
liegt, schalten diese Grafik ein und setzen die gewählten 
Farben. 

Interessanter ist da schon die Rechenroutine an $c19a. 
Hier werden zunächst alle vier Timer des C64 program- 


0 : <232> 

10 REM A <0ß2> 

20 REM COMPUTER <23B> 

30 REM T <254> 

50 REM <112> 

60 REM CLAUS FABER + BERND JOHANNES <031> 

70 REM <132> 

ea REM BEARBEITER: NIKOLAUS HEUSLER <2I6> 

90 REM <152> 

99 REM FUER 64'ER SONDERHEFT <1S7> 

100 REM <162> 

101 REM (C) MARKT t< TECHNIK <136> 

102 REM (W) APRIL 1987 <252> 

103 REM NH-2005B9-ARR <222> 

107 i <0a3> 

108 IF PEEK(49152>•^PEEK<49153!<>l64 THEN L 

□AD"C-ART.MC'',S,1 <t93> 

109 I <0as> 

110 BA=49B42+PEEK<41234)-61-(4B0+PEEK(4926 

5)/12-9a.75)/SQR(676) <04B> 

130 Cl«:BA+0sC2=BA+l <I87> 

140 C3=BA+2:C4=BA-t-3 <233> 

160 Rl=BA+4iR2=BA+5 <0a9> 

170 R3*=8A+6iR4»BA+7 <135> 

180 R5=BA+B <246> 

200 Pl-BA+9iP2°BA+10 <210> 

210 P3=BA+lliP5=BA*12 <110> 

211 P4=BA+13 <100> 

230 GX«BA4-14:6H=BA+15 <130> 

240 BY-BA+16 <140? 

260 X0=BA+17:XM=BA+1B <i36> 


270 

2a0 

290 

325 

330 

340 

342 

350 

360 

380 

390 

400 

410 

420 

424 

430 

431 

432 

440 

4S0 

460 

300 

510 


Ha=BA-H9: HM=ßA+20 
YO=BA+21:YM=BA+Z2 
SYS 65409 
GOSUB 1100 

POKE S32BO,0iPOKE 53231,0 

PRINT" tCLR.SREY S .GRAPHIC ,CTRL-HJIJTOro 

PRINT" {RVSON,258PACE, YELLOW>A<BREY 31 
4SPACE>’'5 

PRINT"<12SPACE>C 0 M P U T ECSPACE.YEL 
LOW>R<BREY 3,14SPACE>"| 

PRINT"<26SPACE,YELL0W>T<QREY 3,12SPACE 
,WHITE>" 

PRINT"(ZDOMN.SPACEJl) BRAF{K<3SPACE>-P 
ARAMETER 

PRINT" 2) RECHNUNGS-PARAMETER 
PRINT" 3) PROZESS<2SPACE>-PARAMETER 
PR I NT '• <DQWN .SPACE > 4) START (MULT I -COLO 
R) 

PRINT" 5) START (HOCHAUFLOESEND) 

PRINT"<D0WN.SPACE>6) ENDE 
PRINT"<2D0WN,4SPACE >BITTE WAEHLEN 
PRINT"<3D0WN,GREY 3>V0N C. FABER. B. J 
OHANNES l< N. HEUSLER 

PRINT"<DOWN><C) SH 64'ER, MARKT S( TECH 
NIK, 1989<HaMEJ"jPDKE 19B,. 

GET A$:W«:VAL(A«> 

IF W<1 OR W>6 GOTO 440 

□N M BOTO 500,600,700,600,900,1200 

PRINT"tCLR,SPflCE >BRAFIK-PARAMETER 


<ia4> 

<13S> 

< 2 ea> 

<043> 

<204> 

<169> 

< 120 > 

<0SO> 

< 222 > 

<O70> 

<019> 

<146> 

<090> 

<093> 

<207> 

<046> 

<063> 

<0S6> 

<206> 

<017> 

<1S3> 

<eiB8> 


PRINT”t2DQWN,SPACE>FARBENiSR=0iBl=0s 
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miert. Die beiden Timer der CIA 1 dienen hier als Zufallsge¬ 
neratoren. Sie werden soeingestellt, daß sie laufend von ei¬ 
nem bestimmten, für beide Timer verschiedenen Startwert 
(über65000)auf Null herabzählen (diese weite Strecke wird 
etwa 15mal pro Sekunde durchlaufen). Durch Auslesen 
dieser Timer an einer bestimmten Stelle im Programm 
($c1dd) erhält man zwei Werte, die nicht vorherzusagen 
sind, also praktisch zufällig. Diese beiden Werte werden in 
den Bereich 0..255 gebracht und als X- und Y-Koordinaten 
verwendet. 

Die beiden Timer der CIA 2 dienen als echte Timer, sie 
sind so programmiert, daß sie von einem bestimmten Wert, 
den Sie selbst als »Bildpause« einstellen, auf Null zählen. 
Das Programm errechnet erst dann ein neues Bild, wenn 
die Null erreicht ist. So wird die Pause realisiert. 

Ab $c1d7 findet sich eine Schleife, die erst dann beendet 
wird, wenn die Q-Taste betätigt wird. In dieser Schleife er- 

Rechne bis zum Umfallen! 


zeugt der C64 zunächst die zufälligen Koordinaten, die als 
Ausgangsbasis für das Jetzt zu errechnende Bild dienen. 
Die Uhr für die Bildpause läuft los. An Sc206 wird die Re¬ 
chenroutine, die bei $c257 liegt, aufgerufen. Diese erzeugt 
aus den alten Koordinaten neue, die dann in das Bild einge¬ 
zeichnet die interessanten Figuren ergeben. 

Hier werden eigentlich nur die beiden Anfangskoordina¬ 
ten so oft durch zwei geteilt, wie es die Fract-Parameter fest¬ 
legen. Die jeweils andere Koordinate wird addiert oder sub¬ 
trahiert, je nach Vorzeichen. Der Parameter »Krümmung« 
steuert direkt diese Additionen oder Subtraktionen. Dazu 
verändert sich das Maschinenprogramm selbst: Am An¬ 
fang, ab $c009, werden in dieser Rechenroutine die. bepö- 
tigten Befehle (ADC oder SBC) je nach Benutzer\>orgabe' 
an bestimmte Platzhalter eingesetzt. 

Die Routine prüft nun, ob die Koordinaten, die sie da 
eben ausgerechnet hat, überhaupt sinnvoll sind. Es kann 
passieren, daß die errechneten Koordinaten gleich den 


Ausgangskoordinaten sind. In diesem Fall würde das Pro¬ 
gramm endlos mit demselben Koordinatenpaar weiterar- 
beiten. daher wird von der Rechenroutine in diesem Fall 
das Carry-Flag gesetzt, was dem Hauptprogramm signali¬ 
siert, daß die Grafik beendet ist. 

Das gleiche passiert, wenn die errechneten Koordinaten 
mit denen übereinstimmen, die ganz am Anfang ausgelost 
wurden. Ist »Carry« jedoch gelöscht, sind die neuen Koordi¬ 
naten zur Weiterführung des Bildes geeignet. Jetzt wird die 
Routine aufgerufen, die vier Punkte zeichnet. Danach wird 
wieder die Rechenroutine aufgerufen, und das Spiel geht 
so weiter, bis der Benutzer abbricht oder dieselben Koordi¬ 
naten erneut auftreten. 

Wenn der Computer erkennt, daß sich die Koordinaten 
wiederholen, betrachtet er das erzeugte Bild als beendet. 
Die Routine ab $c234 wartet zunächst, bis das nächste Bild 
erzeugt werden darf (Bildpause). Soll dieselbe Grafik noch 
einmal gezeichnet werden, wird die Endiosschleife von vor¬ 
ne gestartet, jedoch ohne Änderung der Startkoordinaten. 

Stehen noch »Compound-Grafiken« aus oder soll dieses 
Bild nicht noch einmal gemalt werden, ruft die Routine den 
Programmteil wieder auf, der per Zufall neue Koordinaten 
wählt, und beginnt von vorn. 

Die Tasten <RUN/STOP> und <Q> werden direkt 
über die Tastaturmatrix geprüft (bei $c22d und $c209). Falls 
sie gedrückt sind, ist das entsprechende Bit (6 oder 7) des 
Tastenregisters Sdc01 gelöscht. 

Zu erwähnen sind noch die Variablen, die direkt hinter 
dem Maschinenprogramm, das logisch bei $c2a7 (auf der 
Diskette bei $c2a9) endet, angesiedelt sind. Auch sie wer¬ 
den in Listing 3 erklärt. In der Zeropage werden die Zellen 
$22/23 als Zeiger und $a4 bis $a9 als Koordinatenspeicher 
(siehe Ende von Listing 3) genutzt. 

., At^ij^uch ohne Verständnis der Funktionsweise können 
Sie Sttn'an der Wirkung, an den Effekten des Programms 
»laben«. Nehmen Sie sich vielleicht etwas Zeit, und probie¬ 
ren Sie einfach alle Parameter durch. Sie werden sehen: 
Die Abtipparbeit hat sich gelohnt! 

(C. Faber/B. Johannes/N. Heusler/ef) 


G2-13 <218> 

520 PRINT"<2D0WN,3P«:E>RAND<7SPflCE>"j:RE=W 

liGDSUB 1000(UloRe <ai6> 

530 PRINT"<DOWN,SPACE>HINTeRQR.C2SPACE>"5I 

RE:«M2sG0SU& iea0iU2sRE <071> 

S40 PRINT"{DOMN.SPACE>FARBE 1{4SPACE}"J I RE 

«WSlSOSUB ia00EM3=RE <057> 

S50 PRINT"CDOWN,BPACE>FnRBe 2<4SPACE>"jiRE 

=W4:B0SUB J00e:M4«RE <e83> 

560 PRINT"<DOWN,SPACE>FARBE 3<4SPACE}"siRE 

-WSiGQSUB 1000IMS-RE <1B9> 

370 Q2-127S PRINT" {DOWN,SPACE>COriPDUND<3SPA 

CE>'' I: RE^MKl GOSUB 1000: WK^RE < 1S2> 

380 GOTO 330 <064> 

600 PRINT"<CLR,SPACE>RECHNUNGS-PARAnETER <24e> 
610 PRINT" <2DaMN>PARAt1ETER, DIE IN DIE FUN 

KTION EINGEHEN)IUP> <13B> 

620 SRse)Gl = liG2>'7 <221> 

630 PRINT"{ZDOWN.SPACEIX-FRAcf. "))RE«M6iG 

OSUB 10e0tM6«RE <e64> 

640 PRINT"<DOWN,SPACE}Y-FRACT. "5tRE«W7:eO 

SUB 10001U7«RE <228> 

650 82=3)PRINT"<BOWN,SPACE>X-VDRZEICHEN "; 

iRE=MB:GOSUe 100a:WS=RE <166> 

660 PRINT"<DaWN,5PACE}Y-VDRZEICHEN "5)RE=W 

?i6aBUB ieeesM‘?=RE <129> 

670 ei=0lG2=llPRINT"CDOWN,SPACE>KRUEMMUNG 

"t>RE=MA:GOSUB 100a:UA=RE <241> 

680 GOTO 330 <164> 

700 PRINT"tCLR,SPACE>PR0ZE6S-PARAt1ETER <B05> 


710 PRINT"I2D0WN,8PACE}ABLAUFSTEUERNDE PAR 


AMETER) <205> 

720 Gl=lsG2=Z5S;SR=8 <173> 

730 PRINT"<2DaMN,SPACE>BILDMlEDERH0LUNG 

!RE=WB:GOSUB ie00:UB=RE <2S2> 

740 PRINT"CD0WN,SPACE>FARBSTETieKEIT<3SPAC 

E>"|iRE^WCiGOSUB ieZBiWC=RE <162> 

750 PRINT"<DOWN,SPACE>BILDPAUSE<BSPACE>"jl 

RE=WD:GOSUB 1000eWD=RE <077> 

760 Q2=32e:PRINT“<D0MN,8PACE>X-6RENZE "giR 

E=WE-t-WF«2S6: GOSUB 1000) WF=tNT <RE/236) <B39> 

770 We»RE AND 255)82-200:PRINT"{DOWN,SPACE 
>y-eRENZE "I:RE=WQ:80SUB 1000:M8-RE:O2 
»320 <146> 

780 PRINT"<DOWN,SPACE>X-SPIEGELACHBE "{:RE 
sWH+WI»2S6!G0SUß 1000!WH=RE AND 2SStMI 
-INT(RE/256) <103> 

790 62-200:PRINT"{DOWN,SPACE)V-SPIEGELACH5 

E "|:RE-WJiGOSUB 1000:MJ-RE:GOTO 330 <123> 

800 POKE P4,0tPaKE C1,W1:P0KE C2,W2:PaKE C 

3,W3:PCIKE C4,W4*16'»-WS <054> 

810 TT-2IGDT0 920 <067> 

900 POKE P4,128:P0KE C1,W1:P0K£ C4,W3*16-»M 

2 < 201 > 

910 TT-1 <216> 

920 POKE R1,W6)P0KE R2,W7:P0KE R3,WB:P0KE 

R4,W9:P0KE R5,WA <044> 

930 POKE Pl,WC!PaKE P2,WB:POKE P3,WD <139> 

940 POKE QX,((WE+WF*256)/TT>AND 255äP0KE B 


Listing 1. Das Steuerprogramm ist In Basic verfaßt 


'iJjiHj* 
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GRAFIK 


H,WF/TT:POKE GV.WG 

950 PGKE XO.WHiPQKE XM, ( <WH+WI«25&)/2)AND 

<055> 

1050 

1060 

IF SR<0 THEN RETURN 

IF RE<Q1 OR RE>G2 THEN PRINT"{2UPJ":S 

<242> 

25SSP0KE HO.WIsPOKE Ht1,WI/2 

<116> 


OTO 1030 

<235> 

960 PQKE Va.WJsPQKE YM.WJiPQKE P5,WK 

<062> 

1070 

RETURN 

<112> 

970 SYS 49152 

<01O> 

1100 

W1=0 ä W2=0 ! W3=18 W4=5 ! W5=2 

<0a7> 

999 GOTO 330 

1000 IF SR<0 THEN PRINT" ( "Sl*”-’'62#") t " J : 6 

<229> 

1110 

1120 

M6=21M7=2 8 MB=18 H9=18 UA=1 

UB=3 ! MC=1:WD=181WE=1601WF=0 8 WG=100 9 WH 

<079> 

OTO 1009 

<011> 


=64 i WI => 18 W J =2008 WK=0 

<i 2 a> 

1003 G1»bGTR«(G 1):G2«sSTR«(G2) 

1006 PRINT"<"RIGHT*<G1*,LEN(Ql*)-1)"-"RIGH 

<0O2> 

1130 

REM DEFAULTMERTE KOENNEN NACH BELIEBE 
N GEAENDERT WERDEN ! 

<175> 

T«(G2*,LEN<62*)-n")i 

<04l> 

1199 

RETURN 

<241> 

1009 A>PEEK(211) 

<10S> 

1200 

PRINT" ICLRiraCHUESS / SERVUS t SALUT 


1010 IF SR<0 THEN PRINT RETjiGOTO 1030 

1020 PRINT REt 

1030 POKE 211,A-t 

<247> 

<181> 

<230> 


/ ADE / CIAOU"iEND 

<173> 

1040 INPUT RE«iRE>VAL(RE*) 

<187> 

LIstIng 1. (Schluß) 



Name 

c-art.mc 




cOOO c2aa 

c0e8 

ed 

ao 

c2 

8d 

ad 

c2 

bd 

c3 

fd 

cleO 

Od 

07 

de 

85 

a4 

85 

a5 

ad 

cl 











cOfO 

c2 

38 

ed 

a8 

c2 

6d 

a9 

c2 

23 

cleS 

06 

de 

Od 

05 

de 

85 

a7 

85 

e4 

eOOO 

20 

84 

ff 

ad 

b6 

c2 

29 

03 

64 

c0f8 

bd 

c5 

c2 

ed 

aa 

c2 

ed 

ab 

54 

olfO 

a6 

a9 

49 

ed 

Of 

dd 

a9 

01 

f9 

c008 

aa 

bd 

5o 

cO 

8d 

66 

c2 

ad 

32 

olOO 

c2 

ad 

aa 

o2 

ae 

a8 

o2 

ec 

30 

elfS 

8d 

Oe 

dd 

a9 

00 

8d 

ae 

o2 

e6 

oOlO 

b9 

c2 

29 

03 

aa 

bd 

50 

cO 

61 

0108 

ac 

c2 

20 

66 

oO 

ad 

aa 

c2 

94 

c200 

ad 

bb 

c2 

6d 

bl 

02 

20 

57 

4d 

o018 

8d 

72 

o2 

ad 

ba 

c2 

29 

01 

ad 

Clio 

ae 

a6 

c2 

ac 

ad 

c2 

20 

66 

97 

c208 

c2 

2c 

01 

de 

50 

48 

bO 

24 

Of 

q020 

aa 

49 

01 

a8 

bd 

64 

cO 

8d 

el 

cll8 

oO 

ad 

ab 

o2 

ae 

a9 

02 

ac 

8f 

o210 

20 

o4 

oO 

oe 

bl 

c2 

dO 

15 

3b 

e028 

67 

c2 

b9 

64 

oO 

8d 

73 

c2 

b7 

cl20 

ac 

o2 

20 

66 

cO 

ad 

ab 

o2 

bO 

c218 

ad 

bb 

c2 

8d 

bl 

o2 

ad 

ae 

4a 

o030 

a9 

36 

85 

01 

a9 

00 

Bd 

ae 

a4 

0128 

ae 

a9 

c2 

ac 

ad 

c2 

4o 

66 

eO 

c220 

o2 

18 

69 

01 

o9 

03 

90 

02 

64 

o038 

c2 

20 

32 

Ol 

20 

73 

Ol 

20 

b4 

cl30 

cO 

60 

a9 

00 

aO 

aO 

85 

22 

f4 

0228 

a9 

00 

8d 

ae 

c2 

2c 

01 

de 

56 

c040 

4a 

cl 

20 

9a 

cl 

20 

84 

ff 

f5 

0138 

84 

23 

a2 

20 

aO 

00 

98 

91 

8a 

o230 

10 

fb 

30 

d2 

ad 

Of 

dd 

29 

cl 

c048 

a9 

Ib 

8d 

11 

dO 

a9 

o8 

8d 

9d 

cl40 

22 

cS 

dO 

fb 

e6 

23 

ca 

dO 

oe 

0238 

01 

dO 

f9 

a5 

a5 

85 

a4 

a5 

39 

c050 

16 

dO 

a9 

15 

8d 

18 

dO 

a9 

Oo 

cl46 

f6 

60 

a9 

01 

8d 

00 

dd 

a9 

9c 

c240 

a8 

85 

a7 

ad 

bO 

c2 

fO 

06 

3b 

c058 

37 

85 

01 

60 

ea 

ea 

38 

18 

b5 

cl50 

33 

8d 

18 

dO 

ad 

b2 

c2 

8d 

06 

0248 

ce 

bO 

o2 

4c 

d7 

Ol 

ce 

af 

of 

c060 

04 

04 

e9 

69 

e5 

65 

2c 

bf 

c8 

0158 

20 

dO 

ad 

b3 

c2 

8d 

21 

dO 

81 

o250 

c2 

dO 

9e 

4c 

d7 

cl 

60 

a5 

04 

0068 

c2 

30 

06 

48 

da 

Oa 

aa 

68 

41 

ol60 



If 

o258 

a4 

85 

a6 

a6 

a7 

86 

a9 

ac 

$c 

o070 

2a 

09 

aO 

85 

23 

98 

29 

07 

el 

ol68 

30 

08 

ad 

16 

dO 

09 

10 

8d 

Tb 

0260 

b6 

c2 

4a 

88 

dO 

fc 

ea 

65 

86 

o07B 

85 

22 

da 

29 

fS 

05 

22 

85 

21 

ol70 

16 

dO 

60 

aO 

00 

ad 

b4 

c2 

eO 

0268 

a7 

85 

a4 

ac 

b7 

c2 

4a 

88 

5c 

Q080 

22 

98 

4a 

4a 

4a 

85 

24 

48 

oO 

0176 

99 

00 

dB 

99 

00 

d9 

99 

00 

bO 

c270 

dO 

fo 

ea 

e5 

a6 

85 

a7 

a9 

be 

o088 

4a 

18 

65 

23 

65 

24 

85 

23 

70 

cl80 

da 

99 

00 

db 

c8 

dO 

fl 

ad 

d8 

c278 

00 

a6 

a4 

a4 

a7 

e4 

a5 

dO 

63 

c090 

98 

29 

f8 

Oa 

Oa 

Oa 

18 

65 

58 

0188 

b5 

o2 

99 

00 

8c 

99 

00 

8d 

b5 

c280 

06 

c4 

a8 

dO 

02 

38 

60 

e4 

5a 

c098 

22 

85 

22 

90 

02 

e6 

23 

85 

47 

ol90 

99 

00 

Be 

99 

00 

8f 

o8 

dO 

41 

c288 

a6 

dO 

04 

c4 

a9 

fO 

f6 

18 

5e 

cOaO 

23 

c9 

aO 

90 

le 

e9 

eO 

bO 

77 

0198 

fl 

60 

a9 

01 

8d 

Oe 

de 

8d 

Ic 

o290 

60 

08 

Oo 

10 

80 

40 

20 

10 

a4 

c0a8 

la 

8a 

29 

07 

2c 

bf 

c2 

30 

5f 

claO 

Of 

de 

a9 

ff 

8d 

04 

de 

8d 

Of 

0298 

08 

04 

02 

01 

40 

10 

04 

01 

da 

oObO 

08 

4a 

ae 

ae 

c2 

18 

7d 

91 

65 

cla8 

05 

de 

8d 

07 

de 

a9 

fe 

6d 

92 

c2aO 

80 

20 

08 

02 

oO 

30 

Oo 

03 

36 

cObS 

c2 

aa 

bd 

94 

c2 

aO 

00 

51 

a5 

elbO 

06 

do 

a9 

08 

8d 

Oe 

dd 

a9 

a4 

c2ae 

00 

00 

ff 

ff 

ff 

ff 

00 

00 

ae 

oOoO 

22 

91 

22 

60 

8e 

a8 

c2 

8d 

94 

clb8 

48 

Bd 

Of 

dd 

ad 

bd 

c2 

ed 

35 











o0c8 

aa 

c2 

8c 

ac 

o2 

ec 

cO 

o2 

a8 

clcO 

06 

dd 

a9 

00 

8d 

07 

dd 

a9 

fb 











oOdO 

ed 

cl 

o2 

bO 

5o 

cc 

c2 

c2 

21 

clo8 

55 

8d 

04 

dd 

a9 

20 

8d 

05 

7c 

LIsting 2. 

Geben Sie das 




c0d8 

bO 

57 

ad 

bf 

o2 

49 

80 

Oa 

24 

oldO 

dd 

ad 

be 

o2 

Sd 

bO 

o2 

ad 

50 

Maschinenprogramm mit 

dem 


cOeO 

a9 

00 

2a 

aa 

bd 

c7 

c2 

38 

ff 

cld8 

ÜQ 

02 

8d 

af 

02 

ed 

04 

de 

b2 

MSE (Seite 1S9) ein 









t 

Programm von Claus Faber & 

$o01S 

sta 

$0272 

1 

ln Programm sohreiben 





Bernd Johannes 

joOlb 

Ida 

$c2ba 

f 

Krümmung 




} 

Llstlng-Kommentar von 

$o01e 

and 

#$01 

} 

erlaubter Bereich; 0 und 1 





HiXolaua Heusler 

$c020 

tax 


} 

nach X 




} 

(c)opyright Markt&Teohnlie, SH 64'er 

$c021 

eor 

#$01 

i 

0 -> 1 und 1 -> 0 





von hier Einsprung durch SYS 49152 

$o023 

tay 


i 

invertierten Wert nach y 






$o024 

Ida 

$o064,x 

i 

ADC oder SBC-Befehl holen 

$oOOO 

Jsr 

$ff84 

f 

CIAs und Interrupts Initialisieren 

$c027 

sta 

$0267 

l 

in Programm schreiben 

$a003 

Ida 

$c2b8 

f 

X-Vorzslchen 

$o02a 

Ida 

$a064,y 

} 

anderen Befehl holen 

8c006 

and 

#$03 

} 

erlaubter Bereioh; 1 bis 3 

$0023 

sta 

5lo273 

i 

und auch fixieren 





(elgentl. unnötig) 

$o030 

^da 

#■$36 

} 

RAM-Bereloh bei $a000-$bfff 

Scooe 

tax 


t 

nach X als Zähler 





einschalten 

$o009 

Ida 

$c05o,x 

f 

aus Tabelle zugehörigen Befehl lesen 

$c032i 

S'b« 

'$01 

t 

ln Prozessorport (Basic absohalten) 

$o00c 

sta 

$c266 

f 

in Programm schreiben 

$ß034 

Ida 

#$30 

t 

Farbzähler 

$B00f 

Ida 

$o2b9 

f 

Y-Vorzeiohen 

$g036 

sta 

$a2Be 

t 

auf Null stellen 

$c012 

and 

#$03 

f 

erlaubter Bereich: 1 bis 3 

$c039 

Jsr 

$0132 

f 

Grafüspeloher löschen 





(elgentl. unnötig) 

$o03o 

jar 

$0173 

f 

Farben setzen (Parbrams) 

$c0l4 

tax 


f 

nach X als Zähler 

$c03f 

jsr 

$c14b 

• 

Grafik einschalten 

$c015 

Ida 

$o05o,x 

/ 

aus Tabelle zugehörigen Befehl lesen 

$c042 

jsr 

$ol9a 

$ 

Grafik berechnen 
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GRAFIK 


?o045 Jsr 

$ff84 , 

CIAs initialisieren (wurden ja 

$oOal emp #$b 0 

i kleiner $a000 ? 



für Grafik > >inlßbrauoht< <) 

$c0a3 bco $c0o3 

: ja, Routine abbreohen 

$aO^S Ida 

#$lb 

doBlraal 27 

$oOa5 emp #$o0 

; groesser gleich $c000 ? 

ic04a sta 

idOll 

Grafik abschalten 

$c0a7 bcs $c0c3 

; Ja, Routine abbreohen 

$o04d Ida 

#$o8 

dezimal 200 


; Adresse der Graflkspeicherzelle 

$c04f sta 

W016 

Hultioolor Buaschalten 


ln $22/23 

$c052 Ida 

#$15 

dezimal 21 

$a0a9 txa 

; X-Koordinate 

je054 sta 

W018 

Textmodus elnsohalten 

$cOaa and # $07 

; > >FeineinsteHung< <, Nummer 

So057 Ida 

#$37 

Basic einschalten 


des Bits im Byte 

$c099 sta 

$01 

Prozessorport 

$cOac bit $c 2 bf 

; Multloolor-Hodus ? 

$o05b rts 


zurück zum Basic-Hauptprogramm 

$oOaf bmi $o0b9 

; nein 



drei Befehle für drei Vorzeichen: 

$cObl Isr 

; sonst durch 2 teilen 



0/1 » NOP 

$c 0 b 2 Idx $c 2 ae 

; Parbnummer 



2 = 3EC 

$c0b5 olo 




3 » OLG 

$c0b6 ade $c291|X 

; entspr. Bitkombination addieren 

$s0$o b $ea $ea 938 $18 

$a0b9 tax 

; X • Nummer des Bits im Byte 



$c05f bis $o063 unbenutzt 

$c0b8 Ida $0294,X 

; A > 2 hoch X (HlRes) 

$c05f b $04 $04 $e9 $69 

$cObd Idy #$00 

; Hilfszeiger 

$0064 b fe5 $65 

zwei Befehle für die Krümmung 

$oObf eor ($22),y 

i Pixel ln der Grafik invertieren 



0 • SBC 

$cOcl sta ($22),y 

; und wieder ln Grafik schreiben 



1 . ADC 

$e0o3 rts 

; fertig 



Punkt ln Grafik invertieren (PLOT) 


1 vier Punkte (Punkte-Quartett) setzen 



Parameter: X-Koordlnate: 


; Parameter; X-Koordlnate: 



X-Register (low), Akku (high) 


X-Register (low), Akku (high) 



Y-Koordlnate: Y-Register 


Y-Koordlnate; Y-Register 

$o066 blt 

$a2bf 

Multicolor-Modus 1 

$c0c4 stx $c2aS 

; X-Koordinate low merken 

$o069 bmi $o071 

nein 

$a0c7 sta $c2aa 

i X-Koordinate high 



sonst X-Koordinate mit 2 


merken (lat immer Null, siehe $o277) 



multiplizieren 

$o0oa aty $o2aQ 

; Y-Koordlnate merken 

$c 06 b pha 


Highbyte merken 


; liegt die X-Koordlnate ln 

$o 06 c txa 


Loubyte nach A 


den erlaubten Grenzen ? 

$c 06 d asl 


mal 2 

$oOcd epx $c2o0 

1 Low-Byte 

$fl06e tax 


zurück nach X 

$o0d0 sbc $o2cl 

; mit Sollwert vergleichen 

$c 06 f pla 


Highbyte 

$oOd3 bcs $0131 

i zu gross, dann Routine abbreohen 

$o070 rol 


mel 2 (ggf. Obertrag von Lowbyte) 

; liegt die Y-Koordlnate im 



Adresse = $a000 + (X and 256) + 40 


erlaubten Bereich t 



* Y + (y and 7) + 8 * int (X/8) + 

$c0d5 cpy $o2c2 

; mit Sollwert vergleichen 



64 , int (Y/8) «AM* fM 

grahi = $a000 + (X and 256) •’W' 


; zu gross, dann Abbruch 
; gespiegelte Koordinaten berechnen 

$o071 ora 

#$a0 

plus Startadresse des Graflkspelohers 

$oOda Ida $o 2 bf 

! Multicolor-Hodus ? 

$c073 sta 

$23 

merken; grahi = $a000 + (X and 256) 

$cOdd eor #$80 

; Multicolorblt umdrehen 

$o075 tya 


Offset = (Y and 7) + 8 « int (X/8) 

$oOdf asl 

i imd ins Carry 


Y-Koordlnate 

$cOeO Ida #$00 

i unnötig: A wird bei $eOdf Null 

$c076 and 

#$07 

untere 3 Bits 

$o0e2 rol 

; A = 1 => Multieolor, sonst Null 

$0078 Bta 

$22 

merken 

(HiRes) 

$c07a txa 


X-Koordlnate 

$o0e3 tax 

; als Zähler merken 

$c07b and 

#$f8 

obere 5 Bits: 8*8» Int (X/8) 

$oDe4 Ida $fl2o7,x 

; Y-Splegelachse lesen ($c2c7 HiRes, 

$o07d ora 

$22 

plus (Y-Koordlnate and 7) 


$c2c8 Multi.) 

$o07f ata 

$22 

als Offset merken 

$e0e7 sec 

; für Subtraktion 



graf - grahi + 256 # (5/32) * Y 

$cOeS sbc $c2ac 

; davon die Y-Koordinate abzlehen 



oder graf “ grahi + 40 » Y 

$c 0 eb sta $c 2 ad 

; gibt neue Y-Koordlnata 

$e081 tya 


Y-Koordinate 

$aOee Ida $c2c3,x 

; X-Spiegelachse analog zu $c0e4 

$0062 Ist 




lesen (low) 

$b 083 Isr 


i durch 8 teilen 

$oOfl sec 

; Subtraktion vorbereiten 

$o084 Isr 

$24 


$c 0 f 2 sbc $c 2 ae 

; davon X-Koordlnate abzlehen 

$0085 sta 

; merken 

$o0f5 sta $a2a9 

; gibt neue X-Koordlnate (low) 

$o087 lar 


; und weiter durch 4 teilen 

$c0f8 Ida $o2o5,x 

; X-Spiegelaohae high 

$cOS3 Isr 


; 1/8 + 1/32 « 5/32 

$cOfb sbc $c2aa 

; davon Hlghbyta der X-Koordlnate 

$0089 olo 


; Addition vorbereiten 


abzlehen 

$o 06 a Bdo 

$23 

; plus Highbyte der Adresse 

$cOfe sta $c2ab 

; gibt neue X-Koordinate (high) 

$c08o ado 

$24 

i plus Y-Koordlnate durch 3 


; vier Punkte setzen: 

$c 08 e sta 

$23 

i gibt neues Adresa-Hlgtibyte (graf) 
i Adresse » graf + offaet + 64 » int 

$cl01 Ida $c 2 aa 

; X-Origlnal, Y-Originel 



(VS) 

$cl04 Idx $c2ae 


$o090 tya 


; Y-Koordlnate 

$cl07 Idy $c2ac 


$o091 and 

#$f8 

; obere 5 Bits isolieren: a : 8 « int 

$clOa Jsr $a066 

; PLOT, Punkt ln Grafik invertieren 

$c093 asl 


(Y/S) 

i X-Origlnal, Y-gespiegelt 



$cl0d Ida $o2ae 


$c094 asl 


; mal 8 

$cllO Idx $c2a8 


$o095 asl 


; ergibt 64 » int (Y/8) 

$0113 Idy $o2ad 


$o096 olo 


; Addition vorbereiten 

$oll6 Jsr $a 066 

; PLOT, Punkt in Grafik invertieren 

$o097 ado 

$22 

; plus offset 


i X-gespiegelt, Y-Orlginal 

$o099 sta 

$22 

i gibt Adresse 


$o09b bco $o09f 

j kein Übertrag ? 



$o09d ino 

$23 

; sonst auch Highbyte erhöhen 
: testen, ob Adresse zwischen $a000 





und $bfff liegt 

Listing 3. 


$o09f Ida 

$23 

; Highbyte 

Hier sehen Sie Listing 2 eis Kiartext, genau kommentiert 
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$cll9 Ida $e2ab 


$olb2 Ida #$08 , 

Timer A (CIA 2), soll Systeratakte 

Jolle Idx Jc2a9 



zählen 

Jcllf Idy ic2ao 


$clb4 sta $ddOe , 

in CIA 2 

Jcl22 Jsr J0O66 

PDOT, Punkt ln Grafik invertieren 

$0lb7 Ida #$48 , 

Timer B (CIA 2) one shot, soll 


X-gespiegelt, Y-gespiegelt 


Underflows von Timer A zählen 

$0125 Ida $o2ab 


$alb9 sta $ddOf 

ln CIA 2 

$0128 Idx $o2a9 


$olbQ Ida $c2bd 

Blldpeuse 

$ol2b Idy $o2ad 


Iclbf sta $dd06 

als Startwert Timer B (low) 

$ol2e Jmp $0066 

PLOT, Punkt ln Grafik invertieren 

$elc2 Ida #$00 

Startwert Timer B high 

$0131 rts 


$olo4 sta $dd07 

ist immer Null 


Orafikspeioher $a000-$bfff lösohen 

$olo7 Ida #$55 

dezimal 65 

$cl32 Ida #00 

Lowbyte Oraflkspeicheradrease 

$olo9 sta $dd04 

Timer A high (CIA 2) 

$0134 Idy #$aO 

und Highbyte ($aOOO) 

$clcc Ida #$20 

dezimal 32 (gibt dezimal 6277) 

$0136 ata $22 

nach $22/23 

$olae ata $dd05 

Timer A lou (CIA 2) 

$0138 aty $23 



gibt Zeltbasis ca. 1/120 Sekunde 

$cl3a Idx #$20 

32 pages ISsohen 

$cldl Ida Sc2be 

Compound 

$0130 Idy #$00 

tay ginge auch 

$cld4 sta $c2b0 

merken 

$ol3e tya 

unnötig i A lat schon 0 


Beginn der Endlossohlelfe; 

$ol3f ata ($22),y 

Null in Grafikspeicher 


neues Bild erzeugen 

$cl4l Iny 

nächstes Byte 

$old7 Ida $o2be 

Bildwiederholung 

$0142 bne $cl3f 

noch kein Übertrag 

$clda sta $c2af 

merken 

$0144 Ino $23 

Highbyte erhöhen 


zufällige X/Y-Koordinaten erzeugen 

$ol46 dex 

noch eine Seite 7 

$aldd Ida $dc04 

Zufallsuert 1 lesen (Timer A low) 

$ol47 bne $cl3f 

Ja 

$cleO ora $dc07 

mit Zufallsuert 2 verknüpfen 

$ol49 rta 

sonst Grafik komplett gelösoht 


(Timer B high) 


Grafik einschalten 

$cle3 sta Sa4 

(nx) gibt X-Koordinate (neu) 

$ol4a Ida #$01 

Bank $8000 einschalten 

$cle5 ata $a5 

(ox) und X-Koordinate (Anfang) 

$ol4c ata SddOO 

Vldeo-Bank-Register 

$cle7 Ida $do06 

Zufallswert 3 lesen (Timer B low) 

$el4f Ida #$38 

dezimal 56 

$clea ora $dc05 

mit Zufallswert 4 verknüpfen 

$0151 ata $d018 

HlRea-Sohlim bei $aOOO 


(Timer A high) 

$ol54 Ida $c2b2 

Randfarbe 

$cled sta $a7 

(ny) gibt Y-Koordinate (neu) 

$0157 sta $d020 

in VIC schreiben 

$clef sta $a8 

(oy) und Y-Koordlnate (Anfang) 

$cl5a Ida $c2b3 

Hintergrundfarbe 


selbes Bild nochmal 

$cl5d sta $d021 

in VIC schreiben 

$clf1 Ida # $49 

Bit 1 setzen: Uhr starten 

$ol60 Ida #$3b 

dezimal 59 

$clf3 sta $ddOf 

Timer B (CIA 2) starten 

$cl62 sta $d011 

Graflkmodus einsohalten 

$olf6 Ida #$01 

Timer A (CIA 2) starten 

$0165 bit $e2bf 

Multloolor-Modus ? 

$clf6 sta $ddOe 

Uhr läuft 

$0168 bmi $ol72 

nein i 



$ol6a Ida fd016 

V IVI i 

^ jBirtTaua $e2ae 

Farbenzähler auf Null 

$ol6d ora #$10 

dezimal 16 

$c200 Ida $e2bb 

Farbstetigkelt 

$ol6f sta $d0l6 

Hultlcolor*Modua einsohalten 

$c203 sta $c2bl 

merken 

$el72 rts 

und zurück 


Grafik welterführen 


Farbrams füllen 

$c206 jsr $0257 

Rechenroutine; Koordinaten 

$0173 Idy #$00 

Zählregister 


nach X/A und Y 

$0175 Ida $G2b4 

Farbenreglster 

$c209 blt $do01 

Taste <Q> prüfen 

$ol78 sta $d800,y 

ins Farbram 

$c20c bvc $c256 

gedrückt, dann Endlossohleife 

$ol7b sta $d900,y 

von $d800-$dbff 


beenden (RTS) 

$ol7e sta jdaOO.y 

schreiben 

$c20e bcs $c234 

, Carry Flag ? dann hat Reohenroutlne 

$0161 sta jdbOO.y 

und somit Farbe setzen 


>>8chlecht<< gearbeitet 

$0184 Iny 

nächstes Byte 


(siehe $o285 bzu. $o28f) 

$0185 bne $el78 

noch nicht fertig 


; CARRY GELÖSCHT »> flechenroutine hat 

$0187 Ida $o2b5 

Hlntergrund/Vordergrundfarbe (y=0) 


> >oräentlich< < gearbeitet — 

$o1Bb sta $8cOD,y 



Bild darf weitergeführt werden 

$clBd ata $SdOO,y 

; ln Textblldaohlrm von Page $8000 

$c2l0 Jsr $c0o4 

Punkte-Quartett setzen 

$ol90 ata $8e00,y 

} schreiben 

$0213 dec $c2bl 

Farbnummemzthler herunterzahlen 

$ol93 ata $8f00,y 

; und somit auch diese Farben setzen 

$q 216 bne $c22d 

nicht null, nochmal die selbe Farbe 

$0196 Iny 

; nächstes Byte 


neue Farbe 

$0197 bne $o18b 

; noch nicht fertig 

$0218 Ida $c2bb 

Farbstetigkelt 

$cl99 rta 

; sonst zurück 

$a21b sta $c2bl 

als Farbnununemzähler merken 


i Hauptroutine: GRAFIK BERECHNEN 

$o21e Ida $c2ae 

Farbenzahler 


i Timer A & B von CIAl dienen als Zu- 

$0221 olc 

für Addition 


fallsgeneratoren für X/Y-Koordineten 

$C222 ade #$01 

plus 1 

$ol9a Ida #$01 

; Zufellsgeneratoren starten (CIA l), 

$o224 orap #$03 

schon alle vier Farben 7 


sollen Systemtakte zählen 

$c226 boc $c22a 

nein, nächste Farbe 

$ol9o sta $dc0e 

; Generator 1 und 2 (Timer A) 

$c228 Ida #$00 

sonst wieder 1. Farbe 


free runnlng 

$c22b ata $c2ae 

wählen 

$ol9f ata $doOf 

i Generator 3 und 4 (Timer B) 


Farb-Frage geklärt 


free running 

$o22d bit $do01 

<RUN/ST0P> Teste testen 

$ola2 Ida #$ff 

i Startwerte für Zufallsgeneratoren 

$0230 bpi $o22d 

solange gedrückt, weiter warten 

$cla4 sta $dc04 

; Timer A lou 

$0232 bmi $o206 

unbedingter Sprung 

$cla7 ata $dc05 

i Timer A high 


CARRY GESETZT => >>Fehler<< aus 

$alaa sta $dc07 

} Timer B high 


Rechenroutine •> Bild beendet 

$olad Ida #$fe 

; damit die beiden Generatoren 

$0234 Ida $ädOf 

; CIA 2, Timer B 


asynchron laufen 

$0237 and #$01 

; Timer läuft noch 7 

$olaf ata $dc06 

; Timer B low 

$0239 bne $o234 

; Je, Bildpause dauert noch an, also 


; Timer A & B von CIA2 dienen für 


warten bis Ende der Pause 


Bildpause 

$c23b Ida $a5 

; (ox) alte X-Koordinate 
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; (nx) wird zur neuen X-Koordinate 
j (oy) alte Y-Koordlnate 
j (ny) wird aur neuen Y-Koordinate 
; Compound-Zähler 
i keine Grafik mehr fixieren? 
j nächste Grafik fixieren 
; weiter in Endloesohleife 
; keine Grafik soll mehr fixiert werden 
; nächstes (anderes) Bild erseugen 7 
; nein, selbes nochmal 
i sonst weiter in Endloesohleife 
; Ende 

! Rechenroutine: Koordinaten des 
nächsten Bildes aus alten Koordinaten 
berechnen 

i nx » nx / (2 hoch X-Fraot) +/- ny 
; nx ; Koordinaten beim Eintritt ln 
Rechenroutine merken 
i vx 
i ny 
! vy 

j X-Fraet = Anzahl der Teilungen 
; geteilt durch 2 

; weiter teilen 

( an dieser Stelle wird, je nach 
X-Vorzeiohen und Krümmung, der 
passende Befehl eingebaut 
; Selbstmodifikation bei BcOOc 
i ny, Selbstniodifikatlon bei 5c027 
; nx, neue X-Koordinate 
j ny = nx / (2 hoch Y-Fract) +/- vx 
} Y-Pract = Anz. der Teilungen 
; geteilt durch 2 

; weiter teilen 

j an dieser Stelle wird. Je nach 

Y-Voraelchen und Krümmung, defS^R 
passende Befehl eingebaut 
; Selbstmodifikation bei ScOlB 
; vx, Selbstmodlflkation bei $c02d 
; ny, neue Y-Koordlnate 
; X-Koordinate high; Null 
; nx, neue X-Koordlnate 
j ny, neue Y-Koordlnate 
! (ox) neue X-Koordlnate gleich alter 
X-Koordinate 7 
; nein 

i (oy) neue Y-Koordlnate gleich alter 
Y-Koordinate 7 
i nein 

; die gleichen Koordinaten ule zu 
Beginn dar Figur 
= > Fehler 

; und fertig! X-Koordlnate low ln X, 
Y-Koordlnate ln Y 
i (vx) neue X-Koordinate gleich 
X-Koordlnate bei Eintritt in 
Rechenroutine? 

1 nein, OK 

; (vy) neue Y-Koordinate gleich 
Y-Koordlnate bei Eintritt in 
Reohenroutine? 
i Ja, Fehler 

; Carry wird genau dann gelbsoht, wenn 
neues Bild weder die gleichen 
Koordinaten 

1 wie letztes Bild noch wie allererstes 
Bild hat (dann dürfen die neuen 
Koordinaten verwendet werden) 
i Ende des Maschinenprogramma 
! Addltlonawerte für drei Farben 
$c291 b $08 $0c $10 

i Tabelle mit Zweierpotenzen (HlRes) 

$c294 b $80 $40 $20 $10 $08 $04 $02 $01 

; Tabelle mit Zweierpotenzen (Multi) 
$c29c b $40 $10 $04 $01 $80 $20 $08 $02 $c0 $30 $0c $03 
; Variablen 


$o29o b $40 $10 $04 $01 $80 $20 $08 $02 $o0 $30 $0c $03 
j Variablen 

$o2a8 X-Koordinate low Original 

$o2a9 X-Koordinate low gespiegelt 

$o2aa X-Koordinate high Original 

$c2ab X-Koordinate high gespiegelt 

$o2ac Y-Koordinate Original 

$o2ad Y-Koordlnete gespiegelt 

$e2ae Farbzähler 

$c2af Bildwiederholungszähler 

$o2bO Compoundzähler 

$o2bl Zähler: Ule oft nooh diese Farbe? 

$c2b2 Rahmenfarbe 

$c2b3 Hintergrundfarbe 

$c2b4 Farben 2 & 3 

$o2b5 Vordergrund/Hlntergrundfarba 

$c2b6 X-Fract 

$o2b7 Y-Fract 

$c2b6 X-Vorzeichen 

$o2b9 y-Vorzelchen 

$c2be Krümmung 

$c2bb Farbstetlgkelt 

$c2bo Bildwiederholung: Wie oft ein Bild wiederholen ? 
$c2bd Blldpeuse 

$c2be Compound: Anz. der zu fixierenden Bilder 
$c2bf Modus: 128 = Hlres, 0 = Multlcolor 
$c2c0 X-Grenze low 
$o2ol X-Grenze high 
$o2e2 Y-Grenze 

$e2o3 X-Splegelachse low Hlres 
$c2c4 X-Splegelaohse low Multi 
$o2o5 X-Splegelaehse high Hlres 
$o2o6 X-Splegelachse high Multi 
$e2c7 Y-Splegelaehse Hlres 
$o2c8 Y-Splegelachse Multi 

; ln der Zeropage werden diese Zellen 
als Koordinatenspeloher benutzt; 
enthält neue X-Koordinate 
enthält X-Koordinate, mit der die Figur 
begonnen wurde 

enthält X-Koordlnate des unmittelbar 
letzten Punktes 
enthält neue Y-Koordlnate 
enthält Y-Koordinate, mit der die Figur 
begonnen wurde 

enthält Y-Koordinate des unmittelbar letzten 
Punktes 



V_ y 



$o23d 

sta 

$a4 

$o23f 

Ida 

$b 8 

$o24l 

sta 

$a7 

$0243 

Ida 

$c2b0 

$c246 

beq 

$c24e 

$c248 

deo 

$c2b0 

$o24b 

Jmp 

$cld7 

$c24e 

deo 

$c2af 

$0251 

bne 

$clfl 

$0253 

Jmp 

$eld7 

$0256 

rts 



$0257 Ida 

$a4 

$c259 sta 

$a6 

$c25b Idx 

$a7 

$c25d stx 

$a9 

$o25f Idy 

$c2b6 

$0262 Isr 


$0263 dey 


$c264 bne 

$c262 


$0266 nop 


$o267 ado 

$a7 

$0269 sta 

$a4 

$Q26b Idy 

$o2b7 

$c26e Isr 


$o26f dey 


$c270 bne 

$c26e 


$0272 

nop 


$0273 

sbc 

$a6 

$0275 

sta 

$a7 

$0277 

Ida 

#$00 

$c279 

Idx 

$a4 

$c27b 

Idy 

$a7 

$o27d 

cpx 

$a5 

$c27f 

bne 

$c287 

$0281 

opy 

$eB 

$0283 

bne 

$c287 

$0285 

seo 


$c286 

rts 

■ 

$0287 

cpx 

$a6 

$c289 

bne 

$c28f 

$c2Sb 

cpy 

$a9 

$o26d 

beq 

$0285 

$c28f 

clc 


$c290 

rts 



$a5: ox, 

$a6: vx, 

$a7: ny, 
$a8: oy, 

$a9: vy. 
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M it »Character-Editor« (Listing 1) können sowohl ein- 
als auch mehrfarbige Zeichensätze entworfen wer¬ 
den, Wie wir Ihnen gleich zeigen werden, können 
Sie auf diese Weise ausgezeichnet sogenannte »Play- 
fields» entwickeln, also Hintergrundgrafiken für Spiele. Das 
Programm ist vollständig in Maschinensprache geschrie¬ 
ben und daher extrem schnell. Jede nur erdenkliche Mani¬ 
pulation eines Zeichens ist damit problemlos möglich. Ge¬ 
laden wird der Editor mit 

LOAD "CHARACTER-EDITOR",8,1 

und mit RUN gestartet. Nach einem < RUN/STOP RE- 
STDRE> kann der »Character-Editor« mit RUN erneut ge¬ 
startet werden, nach einem Reset mit SYS 2083. Der alte 
Zeichensatz bleibt beim Neustart erhalten, Feld 2 wird aller¬ 
dings gelöscht. Bei Sicherheitsabfragen (beispielsweise 
»löschen?« oder »wirklich?«) bedeutet < J > »Ja« und Jede 
andere Taste »Nein«. Menüs können mit < RUN/STOP >, 
< — > oder <SPACE> verlassen werden. 

Die einzelnen Menüpunkte erscheinen beim Aufruf als 
Window im unteren Bereich des Bildschirms. Dort werden 
ansonsten drei Zeichen angezeigt, und zwar das Zeichen 
aus Feld 1 (mittleresZeichen), aus Feld 2 (rechtes Zeichen) 
und das zu bearbeitende Zeichen (linkes Zeichen). Da¬ 
neben finden Sie natürlich auch eine Anzeige der gewähl¬ 
ten Farben und Modi. 

In Bild 1 sehen Sie die Bildschirmaufteilung des Editors, 
in Tabelle 1 eine Erklärung der einzelnen Felder. Eine de¬ 
taillierte Beschreibung der Befehle für jedes Feld entneh¬ 
men Sie bitte Tabelle 2. Dort finden Sie auch ailePutiWe.su-. 
sammengefaBt, die besonders beachtet werden m^sS'ert. 

Da Bilder betenntlich mehr sagen alstausend Worte, ha¬ 
ben wir für Sie einige wichtige Funktionen direkt vom Bild¬ 
schirm abfotografiert. Nach Erscheinen der Einschaltmel¬ 
dung (bitte drücken Sie die SPACE-Taste) sehen Sie den 
Bildschirmaufbau (Bild 2). Jetzt können Sie das Lade-Menü 
aufrufen und einen Zeichensatz laden, falls sich auf der 
Diskette bereits ein fertiger Zeichensatz befindet (Bild 3). 
Im Disk-Menü (Bild 4) kann beispielsweise der Fehlerkanal 
der Floppy abgefragt werden (Bild 5). Umfangreiche Mani¬ 
pulationen bietet auch das User-Menü in Bild 6. Im Color- 
Menü (Bild 7) ist wirklich jede Farbe schnell und einfach zu 
verändern. 

Mit dem Character-Editor steht Ihnen ein äußerst lei¬ 
stungsfähiges Werkzeug zur Verfügung, mit dem man wirk¬ 
lich vernünftig arbeiten kann. In Bild 8 sehen Sie das Pro¬ 
gramm in voller Aktion. Sie werden es bei Ihrer weiteren Ar¬ 
beit nicht mehr missen wolleni (Johannes Lauer/ef) 


Universeller 


Edilor 

Zeichensätze entwer¬ 
fen - das klingt ei¬ 
gentlich ganz simpel. 
Daß dadurch auch 
das Programmieren 
schneller Spiele zum 
Kinderspiel wird, be¬ 
weist dieses Pro¬ 
gramm. Aber lesen 
Sie selbst, welche 
enormen Leistungen 
geboten werden. 



Bild 2. So meldet sich der 



Bild 3. Ein Zeichensatz wird geladen 


Feld 1 


Feld 2 

Hier steht 


Hier können 

der 


die Zeichen 

Zeichensatz 


In gewünschter Form 



abgelegt werden 


A 


B 


C 


Al 


B1 



HF 

ZF 

Ml 

M2 



Special: 

Aus 

Multi: 

Aus 


Bild 1. Blldschirmaufbau des »Character-Editors« 
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Zeidiensatz- 



Editor 

\S 


Zu U: (User-Menü) 

Im User-Menü gibt es drei Funktionen: 

1. Copy-Zeichen 

2. Clear-Zeichen 

3. Invert-Zeichen 

Mit dem Cursor kann man den Balken auf die gewünsch¬ 
te Funktion bewegen und mit < RETURN > die Funktion 
aufrufen, oder man drückt die entsprechende Zahl; 

<1 > für Copy, <2> für Ciear und <3> für Invert 
Abbrechen kann man die Funktionen mit < — >, < RUN/ 
STOP> oder < SPACE >. 


Kurzinfo: Character-Editor 


Programmart: Zelchensatz-Editor 

Laden; LOAD "CHARACTER-EDITOR".8,1 

Start: Nach dem Laden RUN eingeben 

Steuerung: Die Bedienung des Editors erfolgt über die Tastatur. 

Bitte beachten Sie die Hinweise Im Artikel. 

Besonderheiten; Nach einem <RUN/STOP> <RESTORE> läßt 
sich das Programm mit RUN wieder starten, nach einem Reset mit 
SYS 2083. 

Programmautor: Johannes Lauer 



Erläuterungen 
Zu V: (Verschieben) 

Verschieben des Zeichens mit den Cursortasten. 
Verlassen durch < —>, < RUN/STOP > oder 

< SPACE >. 

Zu H: (Special an/aus) 

Der Specialmodus erlaubt das Entwerfen von einfarbi¬ 
gen Zeichen im Multicolormodus. 




Bild 6. Umfangreiche Manipulationen mit dem User-MenU 


Copy-Zeichen; 

(Zeichen kopieren) 

Wenn diese Funktion an¬ 
gewählt wurde, kann man 
den Cursor in Feld 1 bewe¬ 
gen. Durch Drücken von 
< RETURN > wird der An¬ 
fang des zu kopierenden 
Bereichs gewählt. Jetzt er¬ 
scheint über dem ersten 
Cursor ein zweiter, mit dem 
man das Ende des Bereichs 
festlegen kann. Darauf er¬ 
scheint über dem zweiten 
Cursor ein dritter, mit dem 
man dann die Stelle festle¬ 
gen kann, wohin kopiert 
werden soll. 

Clear-Zeichen: 

(Zeichen löschen) 

Funktioniert wie Copy- 
Zeichen, aber man braucht 
nur Anfang und Ende fest¬ 
zulegen. 
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Bild 7. Farbenvieltalt durch das Color-Menü 



Zu A: 

Hier befindet sich das Editlerfeld (auch Feld 3 
genannt). 

Zu AI: 

Hier steht der Code des Zeichens In Hex- 
Oarstellung. (Hur wenn die Anzeige angeschaltet 
wurde) 

Zu B: 

Hier sehen Sie das Zeichen, das unter dem Cursor 

In Feld 1 Ist. 

Zu B1: 

Hier steht der Code des Zeichens In Hex- 
Darstellung. (Nur wenn die Anzeige angeschaltet 
wurde) 

Zu C: 

Hier Ist das Zeichen abgebildet, das sich unter 
dem Cursor von Feld 2 befindet. 

Zu C1; 

Hier steht der Code des Zeichens in Hex* 

Darstellung. (Nur wenn die Anzeige angeschaltet 
wurde) 

HF; 

Hintergrundfarbe 

ZF: 

Zeichenfarbe 

M1; 

Multicolorfarbe 1 

M2: 

Multlcolorfarbe 2 

Special: 

Anzeige des Speclal-Modus 

Multi: 

Anzeige des Multlcolor-Uodus 


Tabelle 1. Kurzerläuterung der Felder aus Bild 1 


Invert-Zeichen: (Zeichen invertieren) 
Funktioniert wie Clear-Zeichen (siehe oben). 

Zu S: (Save-Menü) 

Funktioniert wie das User-Menü (siehe oben). 
Funktionen: 

1. Zeichensatz speichern 

2. Zeichenfoigen speichern 

3. Feid 2 speichern 


Taste: 

Funktion: 

Funktionen Im 1. Feld: 

<HOME> 

Cursor Home 

<CI-R/HOME> 

Zeichensatz löschen (mit Sicherheitsabfrage) 

<F3> 

Nach Feld 2 wechseln 

<FS> 

Nach Feld 3 wechseln 

Funktionen im 2. Feld: 

<HOME> 

Cursor Home 

<Cl.R/HOME> 

Feld 2 löschen (mit Sicherheitsabfrage) 

<F1> 

Nach Feld 1 wechseln 

<F5> 

Nach Feid 3 wechseln 

<INST> 

Wie In Basic 

<DEL> 

Wie In Basic 

<RETUflN> 

Zeichen von Feld 1 setzen 

<SHIFT RETURN> Zeichen von Feld 3 setzen 

<CTRL9> 

RVS on 

<CTRL0> 

RVSoff 

Alle anderen 

Übernahme des Zeichens 

Tasten 

Beispiel: 

<A> Zeichen A 

<S> Zeichen S 

<SHIFTS> Herz 

Funktionen Im 3. Feld (Editlerfeld): 

<•> 

Zelle füllen 

<l> 

Spalte füllen 

<SHIFT •> 

Zelle löschen 

<SHIFT I> 

Spalte löschen 

<+ > 

Ein Zeichen vor 

<-> 

Ein Zeichen zurück 

<l> 

Zeichen Invertieren 

<F> 

Zeichen füllen 

<Z> 

Punkt setzen 

LCtSF«»' 

Punkt löschen 

<:> 

Zeichen um X-Achse spiegeln 

<:> 

Zeichen um Y-Achse spiegeln 

<V> 

Verschieben 

<,> 

Zeichen aus Feld 1 zum Bearbeiten In Feld 3 
übernehmen 

<•> 

Zeichen aus Feld 2 zum Bearbeiten in Feld 3 
übernehmen 

<SHIFT.> 

Form des Zeichens aus Feld 11n Feld 3 
übernehmen 

<SHIFT.> 

Form des Zeichens aus Feld 2 in Feld 3 
übernehmen 

<0> 

Mit Hintergrundfarbe arbeiten 

<1> 

Mit Zelchentarbe arbeiten 

<2> 

Mit Multlcolorfarbe 1 arbeiten 

<3> 

Mit Multicolorfartje 2 arbeiten 

<M> 

Multicolor an/aus 

<H> 

Special an/aus (funktioniert nur, wenn 

Multicolor eingeschaltet Ist) 

<G> 

Großsohrlff-Zeichensatz holen (mit 
Sicherheitsabfrage) 

<K> 

Kleinschrlft-Zeichensatz holen (mit 
Sicherheitsabfrage) 

<A> 

Zeichencode-Anzeige an/aus 

<W> 

Wechseln zwischen den beiden Zeichensätzen 

<U> 

User-Menü 

<S> 

Save-Menü 

<L> 

Load-Menü 

<D> 

Disk-Menü 

<C> 

Color-Menü 

<SHIFTS> 

Diskstatus 

<SHIFTD> 

Directory 

<F1> 

Nach Feld 1 wechseln 

<F3> 

Nach Feld 2 wechseln 

<HOME> 

Cursor Home 

<CLR/HOME> 

Zeichen löschen 


Tabelle 2. Die Bedienung des »Character-Editors» 
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Nur bei Punkt 2 muß man noch Anfang und Ende des zu 
speichernden Bereichs festlegen. 

Zu L: (Load-Menü) 

Funktioniert wie das Save-Menü 

1. Zeichensatz laden 

2. Zeichenfoigen laden 

3. Feld 2 laden 

Bei Punkt 2 muß angegeben werden, wohin die Zeichen¬ 
folge geladen werden soll. 


Zu D: (Disk-Menü) 

In diesem Menü gibt es drei verschiedene Funktionen 

1. Directory 

2. Diskbefehl 

3. Diskstatus 

Zu C: (Color-Menü) 

Mit den Cursortasten für aufwärts und abwärts wird der 
nächste Punkt angewählt und mit den Cursortasten für 
iinks und rechts die Farbe geändert. 
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Desktop Publishing - kurz DTP - gewinnt 
immer mehr an Bedeutung. Ob Sie origineiie Visiten¬ 
karten oder professioneile Club-Zeitschriften 
dructen wollen: In diesem Workshop lernen Sie von 
den ersten Vorbereitungen bis zum druck¬ 
reifen Ergebnis Schritt für Schritt den UmgaiH« nit 
»Giga-Publish«, dem sensationellen DTP-" 
Programm aus Sonderheft 39. 

F ast unglaublich ist es, was das Programm »Giga- 
Publish« alles aufs Papier zu zaubern vermag. Die 
Druckqualltät Ist dabei so hoch, daß sich ohne weiteres 
auch anspruchsvollere Aufgaben bewältigen lassen. 

Um »Giga-Publish« In allen seinen Fähigkeiten auszurei¬ 
zen, benötigt man aber einiges an Übung. Anhand zweier 
interessanter Beispiele lernen Sie in diesem Workshop, 
welche Arbeitsschritte beim Entwurf einer Druckseite anfal¬ 
len. 

Wenn Sie diesen Exkurs In die Welt Druckerei am 
Schreibtisch mitgemacht haben, verfügen Sie über genü¬ 
gend Wissen und Erfahrung, um eigenhändig so großarti¬ 
ge Druckselten wie die aus Bild 7 zu erstellen. 

1. Ein Begleitnotiz-Zettel 


Ein Begleitnotiz-Zettel wie In Bild 1 wird am Ende des 
Workshops nur noch eine Kleinigkeit für Sie sein. Mit die¬ 
sem Beispiel wollen wir auch gleich anfangen. Da wir keine 
Bilder und nur einen Zeichensatz verwenden, ist der Auf¬ 
wand recht gering. 

Als Vorlage dienen die vielen Zettel dieser Art, wie sie in 
der Geschäftspost größerer Firmen üblich sind. Unser 
selbstgedrucktes Exemplar wirkt allerdings nicht minder 
professionell (vorausgesetzt. Sie ersetzen den Donald 
Duck durch Ihren Absender). 

Bevor Sie alle folgenden Schritte des Workshops nach- 
voltziehen, sollten Sie sich eine Arbeitsdiskette erstellen, 
auf der alle Programme von »Giga-Publish« enthalten sind. 
Alle weiteren Beispiele in diesem Workshop beziehen sich 
immer auf diese Arbeitsdiskette. 
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ner Zwischenschritt zu erledigen. Im Editor muB die Breite 
der Leerzeichen neu festgeiegt werden. Anschließend wer¬ 
den die Texte korrekt gedruckt. 

Der nächste Arbeitsschritt schließt sich direkt an: Der 
Zeichensatz besitzt noch nicht die richtigen Zeichen. Denn 
für unseren Begleitzettel benötigen wir zwei Sonderzei¬ 
chen, die nicht im Standard enthalten sind. Dies wären ein¬ 
mal die rechteckigen Kästchen, in denen die entsprechen¬ 
de Mitteilung angekreuzt werden soll. Außerdem existiert 
selten ein breiter Unterstrich, mit dem sich eine waagrechte 
Linie zusammenstellen läßt (in unserem Beispiel die 


Bild 1. Der fertige Begleltnotiz-Zettel 

1. Schritt; Der Zeichensatz 

Als erstes sollten Sie eine ungefähre Vorstellung vom 
Endergebnis haben, die Sie in einer Skizze festhalten. 
Davon ausgehend kümmert man sich zunächst einmal um 
die Gestaltungsmittel, also Zeichensätze und Grafiken. 

In unserem ersten Beispiel können wir das Problem 
»Grafiken« erst einmal vergessen, denn Bilder sind auf ei¬ 
ner professionellen Begleitnotiz nicht nötig (höchstens im 
Rahmen eines Firmen-Logos). 

Um dem Begleitzettel ein übersichtliches Äußeres zu ge¬ 
ben, verwendet man sinnvollerweise nur einen einzigen 
Zeichensatz, dafür aber in verschiedenen Schriftgrößen 
und -dicken. Besonders geeignet für unser Beispiel ist eine 
kleine, unauffällige Schrift. Einen solchen Zeichensatz fin¬ 
den Sie übrigens unter dem Namen »f)0000« zu »Glga- 
Publish« gleich mitgeliefert. 

Verfügen Sie nicht über einen passenden Zeichensatz 
im Giga-Publish-Format (und das dürfte wohl meistens der 
Fall sein), tritt erst einmal der Font-Konverter in Al^oSf' 
Sie können auf das gesamte Angebot von Printfox-Zei¬ 
chensätzen zurückgreifen, die inzwischen als Public Do¬ 
main erhältlich sind. Dazu kopieren Sie sich den Zeichen¬ 
satz im Fremdformat auf die Arbeitsdiskette. Anschließend 
lädt man dann den Font-Konverter mit 
LOAD "FONT-KONVERTER",8,1 <RETÜRN> 

Legen Sie nun die Diskette mit den Fremdzeichensätzen 
ins Laufwerk ein. Den Zeichensatz, den Sie konvertieren 
wollen, laden Sie mit Menüpunkt <b> in den Speicher. 
Unter Menüpunkt <a> (bearbeiten) läßt sich der Zeichen¬ 
satz noch einmal ansehen. Die Größe der Zeichen können 
Sie an dieser Stelle festlegen (Bild 2). 


Zeichen ausrichten 
6rö0« doppelt 
6roße dreifach 
eroBe vierfach 




□ 


# 




Bild 3a. Das Doppelkreuz wird zum Kästchen geändert 


668 


Bild 2. Der Fortt-Konverter 

Den Zeichensatz, soweit überhaupt möglich, zu vergrö¬ 
ßern, ist in der Regel nicht sinnvoll. Nur wenn Sie extrem 
große, plakative Schriften verwenden wollen, ist eine Ver¬ 
größerung zu empfehlen. Ansonsten speichern Sie den 
Zeichensatz nach dem Ausrichten mit Menüpunkt <c> 
auf die Arbeitsdiskette ab. Als Name dient eine vierstellige 
Nummer, die Sie sich merken sollten. Nach dieser Proze¬ 
dur liegt der Zeichensatz im Giga-Publish-Format auf Dis¬ 
kette vor. 

Sollten Sie bei einem späteren Ausdruck feststellen, daß 
der Text ohne Leerzeichen gedruckt wird, ist noch ein klei- 



Blld 3b. Das Dollarzeichen wird zum Unterstrich geändert 

Schriftiinie für Datum und Unterschrift). Der Zeichensatz 
muß bearbeitet werden. 

Laden Sie gleich als nächstes den Zeichensatz-Editor 
mit 

LOAD "GIGA-EDIT",8,1 <RETURN> 

Wiederum mit Menüpunkt <b> laden Sie sich nun den 
zu editierenden Zeichensatz zweimal ein: einmal als Zei- 
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Bild 4. Jeder Textabschnitt erhält seine eigene Box 


chensatz (a) und einmal als Zeichensatz (b). Zeichensatz 
(a) läßt sich dann beliebig verändern, während man mit Zei¬ 
chensatz (b) immer die Originalversion zum Vergleich hat. 

Zur Veränderung suchen Sie sich aus dem Zeichensatz 
zwei Zeichen, die in dem Projekt bestimmt keine Verwen¬ 
dung finden. Beispielsweise könnten Sie dazu das Doppel¬ 
kreuz <#> und das Dollarzeichen <$> nehmen. 

Das Doppelkreuz verändern Sie zu einem rechteckigen, 
Kästchen und das Dollarzeichen zu einem breiten Unter¬ 
strich (Bilder 3a und 3b). Die zahlreichen Hilfsfunktionen, 
die das Editieren beträchtlich vereinfachen, sind ausführ¬ 
lich in Sonderheft 39 beschrieben. Wenn der Zeichensatz 
ihren Vorstellungen entsprechend verändert wurde, spei¬ 
chern Sie ihn unter einem neuen Namen wieder auf die Ar¬ 
beitsdiskette. 

2. Schritt: Das L^out 

Das Ergebnis bisher ist ein geeigneter Zeichensatz mit 
neuer vierstelliger Nummer auf der Arbeitsdiskette. Da un¬ 
ser Begleitzettel mit relativ wenig Text auskommt, verwen¬ 
den wir zur Texteingabe keine externe Textverarbeitung, 
sondern den in »Qiga-Publish« integrierten komfortablen 
Editor. 

Zunächst aber kommt ein sehr wichtiges Kapitel an die 
Reihe, nämlich das Layout. Wo früher noch mit Papier und 
Schere herumgebastelt wurde, genügt uns bei »Giga-Pub- 
lish« der Joystick oder die Maus. 

Die erste Überlegung beim Layouten ist immer die Frage: 
Wie viele Textspalten werden benötigt? 

Da die Begleitnotiz deutlich in eine linke Hälfte (Absen¬ 
der und Freiraum für Adresse) und eine rechte Hälfte (Infor¬ 
mationen und Unterschrift) aufgeteilt ist, fällt die Entschei¬ 
dung leicht: zwei Spalten. 

Klicken Sie also das dritte Icon von oben am Layout- 
Bildschirm einmal und nach einer Pause zweimal schnell 
an. Nun ist die Bildschirmseite in zwei Textspalten geglie¬ 
dert. 

Der Begleitzettel soll aber nur ein Drittel einer DIN-A4- 
Seite groß sein. Daher schiebt man (nach Aktivierung des 
oberen Move-Icons) den unteren Seitenbegrenzer nach 
oben, bis die Druckseite die gewünschte Größe einnimmt. 
Die rechte Textspalte wird, wie wir gleich sehen werden, ei¬ 
gentlich gar nicht gebraucht, weshalb wir sie zur Vereinfa¬ 


chung gleich löschen (Abfalleimer-Icon). Gleichzeitig 
schieben wir den rechten Rand der übriggebliebenen Spal¬ 
te ein bis zwei Punkte nach links, um den Freiraum in der 
Mitte der Seite zu vergrößern (dies hat lediglich kosmeti¬ 
sche Funktion). 

Das Problem der unterschiedlich angeordneten Zeilen 
auf der rechten Hälfte der Seite lösen wir am einfachsten 
-durp(}^oxen: Jeder »Abschnitt« erhält seine eigene Box 
(Bild 4). Auf diese Weise gibt es keine Schwierigkeiten mit 
den parallelen Spalten, in denen die anzukreuzenden Infor¬ 
mationen angeordnet sind. Außerdem lassen sich die Ab¬ 
schnitte dann später noch leicht nach oben oder unten ver¬ 
schieben (wenn zum Beispiel manche Zeilen zu nahe an¬ 
einanderkleben). 

Wir benötigen für den Begleitnotiz-Zettel insgesamt sie¬ 
ben Boxen, wobei die oberen Boxen am einfachsten Kante 
an Kante angeordnet werden (Bild 5). Damit ist das grafi¬ 
sche Layout eigentlich schon beendet. Allerdings sind 
noch einige andere Punkte im Layout-Menü zu bearbeiten. 

Da wäre zunächst Menüpunkt »d) Fonts«. Da wir auf dem 
Begleitzettel nur einen Zeichensatz verwenden wollen, ge¬ 
ben Sie nur für den Zeichensatz Nummer Null den Namen 
des vorher konvertierten und veränderten Zeichensatzes 
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Bild 5. Das Layout des Begleitzettels 
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ein. Versichern Sie sich, daß vor dem Druck auf < RE¬ 
TURN > dieser Zeichensatz auch auf der Arbeitsdiskette 
im Laufwerk zu finden ist. 

Zum Abschiuß wähien wir die Extras aus Menüpunkt »e)« 
an. Hier erfahren Sie, daß auf der Seite 0 eine Textspaite 
und sieben Boxen existieren. Den nächsten Wert, nämiich 
den Zeilenabstand in den Textspaiten, soilten Sie verän¬ 
dern, da sonst die Zeiien zu nah aneinanderkieben. Nach 
mehrmaligem Ausprobieren stellt sich hier der Wert 18 als 
besonders geeignet heraus. 

Die restlichen Informationen sind für unser relativ einfa¬ 
ches erstes Beispiel nicht zu verändern. Die Boxen haben 
allesamt den Zeilenabstand 0, keinen Rahmen und kein 
Bild. Für den Ausdruck von Bild 4 habe ich übrigens ledig¬ 
lich für jede Box den Rahmen eingeschaltet. 



SO 
- £0 


-=\ ( 


Bild 6. Das Preview des Begleltzettels 


3. Schritt; Der Text 

Bei der Eingabe des Textes mit dem Texteditor verwen¬ 
den wir Steuerzeichen, wie es im Sonderheft 39 beschrie¬ 
ben ist. So werden die Absender auf der linken Hälfte zen¬ 
triert und in variabler Größe und Schriftstärke verwendet. 
Die Boxentexle werden dann linksbündig und teilweise 
halbfett gedruckt. Außerdem sollten Sie noch beachten, 
daß die umdefinierten Sonderzeichen (Kästchen und Un¬ 
terstrich) im Editor durchaus noch als Doppelkreuz und 
Dollarzeichen gehandhabt werden. Die neue Definition 
kommt erst beim Ausdrucken zum Vorschein. Um einen Be¬ 
gleitzettel wie in Bild 1 zu erhalten, geben Sie Listing 1 ein 
und speichern den Text auf der Arbeitsdiskette. Laden Sie 
ihn anschließend in den Editor, um sich in Ruhe die verwen¬ 
deten Steuerzeichen anzusehen. Alle geänderten Zei¬ 
chensätze sowie die verwendeten Bilder und Texte finden 
Sie komplett auf der Programmservice-Diskette zu diesem 
Sonderheft. Für die Bilder beispielsweise fehlt der Platz in 
diesem Heft, da sie als Grafikinformation mit zirka 32 
Blocks auf Diskette abgelegt sind. 

4. Schritt: Das Preview 

Bevor Sie sich nun an den zeitaufwendigen Ausdruck 
machen, sehen Sie sich erst einmal das vorläufige Ergeb¬ 
nis im Preview an. Obwohl die Textzeilen nur als Balken dar¬ 
gestellt sind, erkennt man doch, wo zum Beispiel die For¬ 
matierung nicht stimmt, wo Zeilen zu nah aufeinander kle¬ 
ben, oder wo Texte nicht in die Box passen. Sollten zum Bei¬ 
spiel die Texte in den Boxen C und F nicht in eine Zeile pas¬ 
sen, so muß die Box im Layout etwas vergrößert werden. Im 
Bild 6 sehen Sie das korrekte Preview. 
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5. Schritt: Der Ausdruck 

Sind im Preview keine Fehler zu entdecken, ist alles für 
einen ersten Ausdruck bereit. In diesem ersten kleinen Bei¬ 
spiel ohne Bilder und mit nur einem Zeichensatz geht dies 
verhältnismäßig schnell und nimmt nur zirka vier Minuten 
in Anspruch. Anhand dieses Ausdrucks sehen Sie schnell, 
ob kosmetische Änderungen nötig sind. 

In unserem Beispiel empfiehlt es sich auch, die Größe 
des Ausdrucks mit den Maßen eines entsprechenden Ku¬ 
verts zu vergleichen. Dabei sollten Sie darauf achten, daß 
der kleine unterstrichene Absender im Sichtfenster des Ku¬ 
verts erscheint. 

Wenn nun alles zu Ihrervollen Zufriedenheit gelöst ist, so 
können Sie Layout und Text (nicht vergessen!) abspei¬ 
chern, um sich bei Bedarf (oder wenn Sie einmal viel Zeit 
übrig haben) neue Begleitnotizen auszudrucken. 


Eine Einladung 


Bild 7. Die fertige Einladung 


Das zweite Beispiel, das wir mit »Giga-Publish« erarbeiten 
wollen, ist eine aufwendig gestaltete Einladung (Bild 7). 
Diese Einladung soll neben dem mehrspaltigen Fließtext 
auch Überschriften, Vor- und Nachspänne sowie Bilder mit 
Bildunterschriften enthalten. Alles in allem also eine »bun¬ 
te« und Vielseite Demonstration. 

1. Schritt: Die Zeichensätze 

Natürlich verwendet man auf einer Einladung, die an¬ 
sprechend wirken soll, nicht nur einen Zeichensatz. Al¬ 
lerdings muß man als »Gestalter« einen goldenen Mit- 
finden. Denn verschiedene Zeichensätze ma¬ 
chen das Gesamtbild zwar abwechslungsreich, doch 
i bei zil vielen Zeichensätzen wirkt die Vielfalt verwir- 
' rerjidiiind'Unprofessionell. 

, Ais Zeichensatz für den Fließtext benutzen wir wie- 
, der den >»f)0000«, der im Sonderheft 39 mit Giga- 
Publish abgedruckt wurde. Dies ist ein einfacher und 
nicht zu großer Zeichensatz. Ein ähnlicher wird ja 
auch in dieser Zeitschrift verwendet. Vor- und Nach¬ 
spann erscheinen üblicherweise im gleichen Zei¬ 
chensatz wie der Fließtext, wenn auch ln einer ande¬ 
ren Dicke. 

Abwechslung im Text erzeugen wir mit Überschrif¬ 
ten. Sinnvollerweise verwenden wir für die vier Zei¬ 
len unter »Einladung« einen typischen computer¬ 
lesbaren Zeichensatz. Dies ist sofort ein optisches 
Signal, um welches Thema es sich handelt. 

Ein interessantes Mittel zur Auflockerung unse 
res Textes sind die Zwischenüberschriften (»Kobol 
dein«, »in Laptops«, »Viren helfen«). Sie fassen 
kurz und prägnant das Thema eines Textabschnit 
tes zusammen. Wir plazieren sie irgendwo inner 
halb dieses Textabschnittes. Auch in dieser Zeit 
Schrift werden solche Zwischenüberschriften ver 
wendet, Sie erkennen sie an dem Balken darun 
ter (eine dünne und eine dicke Linie). 

Die textbezogenen Überschriften (»Wie ver 
breiten sich die Kobolde?« und so weiter) bekom 
men der Übersichtlichkeit halber einen einheitli 
chen Zeichensatz, der sich in der Dicke deutlich 
vom Fließtextabhebt. SogroßwiedieZwischen- 
Überschriften sollte er allerdings nicht sein, da 
wir sonst keinerlei Abwechslung erzielen. 
Schließlich benötigen wir noch einen sehr klei¬ 
nen, aber gut lesbaren Zeichensatz für die 
Bildunterschriften. 
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Konvertieren Sie sich also die Zeichensätze Ihrer Wahl 
ins Giga-Publish-Format und speichern Sie sie auf die Ar¬ 
beitsdiskette. 

2. Schritt; Die Bilder 

Auch die Grafiken, die nachher auf der Einladung er¬ 
scheinen sollen, müssen zuerst ins Giga-Publish-Format 
konvertiert werden. Dazu dient das Konvertierungs-Pro¬ 
gramm, welches Sie mit 
LOAD 'BILD-KONVERTER",8,1 <RETURN> 
laden. Danach laden Sie mit Menüpunkt »b)« die Grafik im 
Fremdformat ein. Verwenden Sie bei normalen Grafiken 
immer Bereich 1. 

Theoretisch wäre es auch möglich, vier komplette Grafik- 
Bildschirme einzuladen und dann als ein einziges Bild zu 
verwenden. So Ist zum Beispiel das Programm »Giga-D\D« 
in der Lage, seine Bilder mit 640 x 400 Punkten zu berech¬ 
nen und in vier Bildschirmen abzuspeichern. Allerdings be¬ 
nötigen wir für unsere Einladung keine übergroßen Grafi¬ 
ken dieser Art. 

Als nächstes kommt die Wahl des Ausschnitts. Am be¬ 
sten läßt man dabei keine leeren Ränder, sondern macht 
den Ausschnitt möglichst klein. Dann hat man nämlich oft 
noch die Möglichkeit, das Bild später vergrößert auszu¬ 
drucken. 

Ist der Ausschnitt festgelegt, sollten Sie unbedingt Me¬ 
nüpunkt »d) Info« aufrufen. Hier erfährt man zunächst ein¬ 
mal die Größe des Ausschnittes in Einzelpunkten. Sehr 
wichtig sind die Werte in Klammern bei »Druckbreite« und 
»Druckhöhe«. Diese Zahlen geben an, wie hoch und breit 
eine Box im Layout sein muß, um das Bild aufnehmen zu 
können. Außerdem bekommt man hier schon den ersten 
Eindruck von der Größe des Bildes im Ausdruck. Zum Ver¬ 
gleich: Der Layout-Bildschirm von Giga-Publlsh Ist 161 • 
Punkte breit und 194 Punkte hoch. 

Durch die hohe Auflösung des Druckers, die ja von 
»Giga-Publlsh« voll unterstützt wird, geraten manche Bilder 
kleiner als erwartet. So nimmt eine normale Grafik von 320 
X 200 Punkten weniger als ein Fünftel der Breite und weni¬ 
ger als ein Zehntel einer Druckseite in Anspruch. Daher 
vergrößern wir zu kleine Bilder (in unserem Beispiel ist das 
mit dem mittleren Bild, dem Frauengesicht, geschehen). 

Zu diesem Zweck werden <A> und <B> je einmal ge¬ 
drückt. Dadurch verdoppeln sich horizontale und vertikale 
Ausmaße. Giga-Publisch wird nun statt einem Punkt jeweils 
vier quadratisch angeordnete Punkte drucken, wodurch 
das Bild insgesamt viermal mehr Platz einnimmt. Sie Kön¬ 
nen sowohl »Größe X« als auch »Größe Y« bis zu versechs¬ 
fachen. Dabei sollten aber beide Größen jeweils den glei¬ 
chen Wert erhalten, da sonst starke Verzerrungen entste¬ 
hen. 

Wenn die richtige Größe gewählt ist, notieren Sie sich am 
besten die Werte in den Klammern und speichern anschlie¬ 
ßend das Bild ab. 

»X-Format« und »Y-Format« bestimmen, ob das Bild in 
der Box später zentriert oder bündig gedruckt werden soll. 
Meistens werden Sie hier wohl die Werte 0/0 für zentriert 
verwenden. 

Noch etwas zur Bilderwahl: Es ist ein interessanter psy¬ 
chologischer Trick, auf der Mitte einer Seite ein menschli¬ 
ches Gesicht abzudrucken. Ein Gesicht wirkt nämlich un¬ 
weigerlich als Blickfang und lenkt automatisch die Auf¬ 
merksamkeit des Lesers auf diese Seite. 

3. Schritt: Der Fließtext 

Der in Giga-Publish eingebaute Editor bietet zwar er¬ 
staunlich viel Komfort, doch für die Eingabe längerer Texte 
ist eine echte Textverarbeitung wesentlich angenehmer. 
Für diese Zwecke bietet sich das Programm »Master-Text 



Bild 8. Das Layout der Einladung 


64« an, welches ebenfalls im Sonderheft 39 veröffentlicht 
wurde. 

Geben Sie aber lediglich den Fließtext ein, also nicht die 
großen (Zwischen-)Überschriften und die Bildunterschrif¬ 
ten. Auch müssen Sie den Text ganz ohne Steuerzeichen 
eingeben, diese werden erst später mit dem Giga-Publlsh- 
Editor eingefügt. Den Text speichern Sie dann auf Ihrer Ar¬ 
beitsdiskette zur weiteren Verarbeitung ab. 

Nun tritt der Textkonverter in Aktion. Dieses Programm 
konnte aus technischen Gründen leider nicht im Sonder¬ 
heft 39 abgedruckt werden, auf der dazugehörigen Leser¬ 
service-Disk ist es aber enthalten. Das Listing finden Sie im 
Spndj£i;nft 40. Das Programm wird geladen mit 
LOAD "MASTER/KONVERT'jS,! <RETURN> 

Die Bedienung ist denkbar einfach. Man lädt den Text im 
Master-Text-Format ein und speichert in anschließend un¬ 
ter beliebigem Namen wieder auf Diskette. Nun liegt der 
Text im Giga-Publish-Format vor. 

4. Schritt: Das Layout 

Nun kommt man zum kompliziertesten Teil der Arbeit, 
dem Entwurf des Layouts. Hier ist es wieder nötig, eine ge¬ 
naue Vorstellung vom späteren Aussehen der Seite zu ha¬ 
ben. Am Anfang steht immer die Entscheidung über die 
Spaltenzahl. In unserem Fall eignen sich vier Spalten am 
besten. Dadurch ist der recht umfangreiche Text deutlich 
autgegiiedert. 

Die Spalten sind relativ schmal, so daß auch bei enger 
Schrift und kleinem Zeilenabstand keine Leseschwierigkei¬ 
ten entstehen. Außerdem wird bei vier Spalten die Verwen¬ 
dung von mehreren Überschriften erleichtert. Optisch un- 
angenehmjst es, wenn eine breite Spalte von einer nur 
schmalen Überschrift unterbrochen wird. 

In Bild 6 finden Sie das passende Layout. Box B dient zu¬ 
nächst einmal zur Aufnahme des riesig gedruckten Wortes 
»Einladung«. Da der Schriftzug dennoch nicht die gesamte 
Seltenbreite in Anspruch nimmt, bleibt links und rechts da¬ 
von noch genug Platz für die Einblendung der Schilder. Da¬ 
zu werden selbstverständlich eigene Boxen (A und C) benö¬ 
tigt. Die kleinen Logos neben der Überschrift sind leider hö¬ 
her als die Schrift, daher müssen auch die Boxen A und C 
höher als Box C sein. Daß sie sich mit den darunterliegen¬ 
den Boxen überlappen, ist nicht weiter schlimm. 

Darunter folgt der erste Vorspann. Die Box E ist etwas 
breiter als Box B, dadurch wirkt die Überschrift über dem 
Vorspann wie eine »Krone«. Um den Vorspann aber den¬ 
noch kompakt und übersichtlich zu halten, nimmt Box E 
nicht die gesamte Seitenbreite in Anspruch. Die Boxen D 
und F sind unbedingt notwendig, damit der Platz seitlich 
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von Box E freigehalten wird. Wären sie nicht vorhanden, 
würde der Fließtext schon hier oben beginnen. Aus dem 
gleichen Grund liegen die Boxenränder auch genau auf 
den Spaltenrändern. Wäre hier auch nur eine Punktzeile 
frei, so würde »Siga-Publish« versuchen, dort noch Text un¬ 
terzubringen, 

Box G muß wieder groß genug sein, um das kleine Bild 
aufzunehmen. Zusätzlich wurde die Box noch etwas höher 
gemacht, um den Text etwas aufzulockern. Die Boxen H, K 
und L werden die Zwischenüberschriften enthalten. Die 
vertikalen Ränder müssen aus den schon oben genannten 
Gründen genau mit den Spaltenrändern Zusammentreffen. 
Oie genaue Höhe und Lage optimiert man dann nach den 
ersten Previews oder Ausdrücken. 

Die Boxen I und J sind recht interessant, da sie genau 
zwischen zwei Spalten liegen. Vor allem muß natürlich das 
Bild in die Box I passen. Achten Sie aber In solchen Situatio¬ 
nen darauf, daß links und rechts von der Box genug Platz 
für den Text bleibt. Mindestens ein Wort muß nämlich im¬ 
mer noch in eine Zeile passen, sonst gibt es Probleme. 

Die Boxen M und N liegen dann wieder mit ihren Rändern 
auf den Spaltenrändern, somit ergeben sich keine Schwie¬ 
rigkeiten. Übrigenswurdenderobere und untere Seltenbe¬ 
grenzer ein beziehungsweise zwei Punkte nach oben be¬ 
ziehungsweise unten verschoben, um auf der Seite noch 
etwas mehr Platz zu bekommen. 

Unter Menüpunkt »d) Fonts« des Layout-Menüs gibt man 
nun die Namen der konvertierten Zeichensätze ein. Achten 
Sie darauf, daß dabei eine Diskette mit den entsprechen¬ 
den Zeichensätzen im Laufwerk liegt. Denn »GIga-Pubiish« 
iädt sofort die Font-Dateien nach, die mit »d)« beginnen 
(beispieisweise »0)0000«). In diesen kurzen Dateien sind 
die Höhe und die Breiten der einzelnen Zeichen des Zei¬ 
chensatzes gespeichert. Diese benötigt »Giga-Publlah» 
zur Berechnung des Previews und des Ausdrucks. 

Wichtig ist auch die Eingabe der Extras unter Menüpunkt 
»e)«. Den Zeiienabstand in den Textspalten lassen Sie am 
besten auf dem Wert 1. Der Auto-Center 0 besagt, daß ein 
elnzelnesWort in einerZeiie linksbündig gedruckt wird. Bei 
Microspace 5 können zwischen den Buchstaben eines 
Wortes höchstens fünf leere Punktspalten eingefügt wer¬ 
den (nur bei Blocksatz nötig). Die komplette Auflistung der 
Extras für die Einladung finden Sie in Tabelle 1. 
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Tabelle 1. Die Werte des Extra-Menüs 



5. Schritt: Die Textbearbeitung 

Nachdem Sie das Layout abgespeichert haben, aktivie¬ 
ren Sie den Editor. Dort laden Sie den konvertierten Fließ¬ 
text ein. Nun werden sämtliche Steuerzeichen für Text¬ 
dicke, -formst und -größe sowie die Boxen-Texte eingege¬ 
ben. Einige Dinge sind dabei zu beachten, die man leicht 
vergißt. 

Jeder Sondermodus (fette Schrift, Unterstreichung) muß 
am Ende des betreffenden Textabschnittes wieder ausge¬ 
schaltet werden I Vergessen Sie nicht die Angabe des Zei¬ 
chensatzes am Fließtext-Anfangl Boxentexte müssen 
durch die entsprechenden Sonderzeichen umschlossen 
sein (Anfang:<-> <X> <Name der Box>, Ende: 
<-> <X> <X>)! 

Der eigentliche Fließtext wird natürlich im Blocksatz for¬ 
matiert, das wirkt sehr professionell. Zwei Ausnahmen exi¬ 
stieren aber: Der Text links von Box I wird linksbündig for¬ 
matiert, der Text rechts von Box I rechtsbündig. Dies hat ei¬ 
nen einfachen Grund. Passen In die verschmälerte Spalte 
nur noch ein oder zwei Worte, so werden diese so weit ge¬ 
streckt, bis der vorhandene Platz ausgefüllt ist. Dies sieht 
nicht besonders vorteilhaft aus. Daher formatiert man so, 
daß der Spaltenrand »glatt« bleibt und der Text zur Box hin 
einen unregelmäßigen Rand bildet. An welcher Stelle im 
Fließtext die Steuerzeichen eingefügt werden müssen, 
weiß man allerdings erst nach dem ersten Ausdruck. 

Vor- und Nachspann sowie Über- und Unterschriften 
zentriert man, um sie optisch zu betonen und Abwechslung 
In den Text zu bringen. 

Nun haben Sie die Chance, die optische Qualität des 
Ausdruckes ganz bedeutend zu steigern. Denn in so schma¬ 
len Spalten wie in unserem Layout passiert es oft, daß das 
jeweils letzte Wort gerade nicht mehr in die Zeile paßt und 
desfÄf- in die nächste Zeile »umgebrochen« wird. Dies hat 
aber bei Blocksatz den Nachteil, daß Wörter und Leerzei¬ 
chen unschön gestreckt und die Zeichenabstände sehr 
unregeimäßig werden. Bel linksbündiger Formatierung 
kommt es zu sehr zackigen Rändern. 

Daher bietet »Giga-Publish« die Möglichkeit, Trennvor¬ 
schläge einzufügen. Paßt ein Wort nicht mehr komplett in 
eine Zeiie, so wird automatisch bei einem Trennvorschlag 
getrennt. Je mehr Trennvorschläge der Text also enthält, 
desto optimaler kann getrennt werden. Und desto schöner 
Ist dann auch das Schriftbild. 

Nehmen Sie sich also ruhig die Zeit, möglichst viele 
Trennvorschläge(mit <CTRL->)einzufügen. Letztendlich 
paßt dadurch übrigens auch mehr Text auf eine Seite. 

6. Schritt: Das Preview 

Wenn Sie auch den Text abgespeichert haben, Ist es Zeit 
für das erste Preview. Lassen Sie sich Immer Spalten, Bo¬ 
xen und Bilder zusammen ausgeben, auch wenn dies rela¬ 
tiv lange dauern kann. Nicht vergessen: Zur Ausgabe des 
Previews muß erst noch das Seitennummern-Symbol an¬ 
geklickt werden! 

Hier erkennt man schon ganz gut, was wo stehen wird. 
Achten Sie darauf, daß Zwischenüberschriften riicht in den 
Vorspann fallen oder zu nahe an einer Fließtext-Überschrift 
kleben. Solche Mängel können durch Verschiebung der 
Boxen Im Layout behoben werden. 

Fließtext-Überschriften sollten weder seitlich von einer 
Box noch am unteren Spaitenende stehen. Das wirkt nicht 
gut. Fügen Sie nach Bedarf Leerzeiien (Carriage Returns) 
in den Text ein. 

Am Preview erkennt man auch, ob die Formatierung 
überall stimmt. Text im Blocksatz wird immer mit glattem lin¬ 
ken und rechten Rand angezeigt (außer den Absätzen, die 
sind zu erkennen). Um die Aufteilung zwischen Spaltentext 
und Boxen genauer erkennen zu können, schalten Sie ein¬ 
fach im Extras-Menü alle Boxen-Rahmen ein. 
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Bild 9. Das Preview der Einladung 


Nach den Korrekturen sieht das Preview wie in Bild 9 aus. 
Vergessen Sie nicht, Text und Layout zu speichern! 

7. Schritt: Der Ausdruck 

Während des Ausdrucks sollten Sie sich eine Kaffee- 
Pause gönnen. Bis sich die komplette Seite beispielsweise 
aus einem Star NL-10 gequält hat, vergeht nämlich über ei¬ 
ne halbe Stunde. Trotzdem sollten Sie ln der Nähe des 
Druckers bleiben. Manche gravierende Fehler fallen näm¬ 
lich schon während des Drückens auf. und dann freuen 
sich Farbband und Mitbewohner, wenn Sie den Ausdruck 
vorzeitig abbrechen (mit <RUN/STOP>). 

Im Ausdruck sieht man deutlich, wo zum Beispiel seitlich 
der Box umformatiert werden muß. Auch fallen einige Stel¬ 
len ins Auge, an denen ein Trennvorschlag guttun würde. 
Auch lohnt es sich meistens, die Rechtschreibung noch 
einmal zu kontrollieren. 

Nach all diesen letzten kleinen Änderungen aber haben 
Sieden perfekten Ausdruck einer Einladung zur Jahresver¬ 
sammlung des V. z. B. d. C. K.l Übrigens—wollen Sie nicht 
auch beitreten? (Nikolaus Huber/ef) 
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Centronics-Treiber für 

Konnten Sie bisher Drucker, Interface 
und »Giga-Publish« nicht zu einer 
befriedigenden Zusammenarbeit über¬ 
reden? Mit dem neuen Software- 

Treiber und einem Centronics/User-Port-Kabei 
erzielen Sie eine fantastische 
Druckqualität. 


Giga-Publish 


D as hervorragende DTP-Programm »Giga-Publish« 
aus dem Sonderheft 39 liefert Druckergebnisse, die 
sich sehen lassen können. Beispiele dafür finden Sie 
in unserem Workshop ab Seite 30. Besitzer eines Druckers 
mit Cenlronics-Schnittstelle und einem Kabel zum User- 
Port des C64 hatten jedoch bisher wenig Gelegenheit, ver¬ 
gleichbare Ergebnisse zu erzielen. 

Nur wer zusätzlich über ein Betriebssystem mit integrier¬ 
tem Centronics-Treiber verfügte, konnte »Giga-Publish« 
sinnvoll einsetzen. 

Die Installation eines Software-Treibers, beispielsweise 
die Eyssele-Schnittstelle aus dem Sonderheft 32, ist nicht 
ohne weiteres möglich, da die selbststartenden Giga-Pub- 
lish-Ladeprogramme alle geänderten Kernel-Vektoren auf 
die ursprünglichen Werte zurücksetzen. 

Dieses Problem wird umgangen, wenn ein Programmteil 
modifiziert wird, das nach dem Start automatisch nachge¬ 
laden wird. Um den Aufwand des Abtippens gering zuhal- 
ten, bietet sich der Programmteil »gpB« an. Er ist nichtsehr 
lang und bietet von seiner Lage im Speicher genügend 
Platz für Erweiterungen. 

Bevor Sie das Listing 1 mit dem MSE (Seite 159) einge¬ 
ben und auf der Giga-Publish-Diskette speichern, sollten 
Sie sicherheitshalber den alten Programmteil »gpB» umbe¬ 
nennen. Legen Sie dazu die Diskette ins Laufwerk und ge¬ 
ben folgende Befehle im Direktmodus ein: 

openl,8,15 

print#1,"rigpB.altsgpB" 
closel 

Neben dem neuen Software-Treiber benötigen Sie nur 
noch ein Kabel, das die Verbindung zwischen der Centro- 
nics-Schnittstelle des Druckers und dem User-Port des 
C64 herstellt. Dieses Kabel gibt es im Handel für zirka 30 
Mark, läßt sich aber mit etwas Geschick auch selber löten 
(Materialkosten zirka 15 Mark). Die Anschlußbelegung fin¬ 
den Sie in Tabelle 1. 

Bevor Sie das Kabel einstecken, sollten Sie beide Geräte 


unbedingt ausschalten. Ist die Verbindung hergestellt, la¬ 
den Sie Giga-Publish wie gewohnt. 

Führt der Drucker kein Line-Feed aus, stellen Sie den 
entsprechenden DIP-Schalter des Druckers auf Auto-LF 
on. Angaben dazu finden Sie in Ihrem Druckerhandbuch. 
Eine weitere Möglichkeit besteht auch darin, in der Druk- 
keranpassungdieZeilenvorschub-Sequenz(13) durch eine 
zusätzliche 10 zu ergänzen. 



Tabelle 1. Anschlußbelegung für ein User-Port/Centronics- 
Kabel als Verbindung zwischen Drucker und C64 

Ein weiterer Vorteil der Verwendung eines User-Port-Ka- 
bels besteht in der erhöhten Druckgeschwindigkeit, da die 
seriell/parallele Wandlung entfällt 0@ Zeile fallen zum Teil 
über 5,5 KByte Daten an). 

Da »Giga-Publish» nach unseren bisherigen Kenntnis¬ 
sen nicht in jeder Drucker/Interface-Kombination befriedi¬ 
gende Ergebnisse liefert, lohnt sich in solchen Problemfäl¬ 
len ebenfalls die Verwendung des neuen Treibers mit ei¬ 
nem User-Port-Kabel. 

Die Druckqualität, die sich beim Testen mit einem Star 
LC-10 unter dieser Kombination ergab, überzeugte einmal 
mehr von der Qualität dieses DTP-Programms. 

(Stefan Seidler/ef) 


name 

gpB c500 c5e8 

0550 

54 54 45 4e 20 49 4e 20 af 

c5b0 

dd 09 04 8d 00 dd 18 60 d5 



0558 

31 39 38 39 20 42 59 20 15 

o5b8 

20 Of f3 fO 03 4o 01 f7 01 

o500 

20 44 e5 a2 Oa aO Oc 20 26 

o560 

o4 49 45 54 45 52 20 o2 92 

o5c0 

20 If f3 a5 ba o9 04 fO Od 

c508 

Oo e5 a9 31 aO q 5 20 le 8c 

0568 

41 59 45 52 Od Od Od Od 79 

a5o8 

03 4c 5b f2 a9 ff 8d 03 fd 

0510 

ab aO 53 b9 94 o5 99 3o 6e 

o570 

20 20 20 20 20 20 4d 41 67 

o5dO 

dd ad 02 dd 09 04 8d 02 ab 

0518 

03 88 10 f? a9 60 aO 03 88 

0578 

4e 59 20 54 48 4l 4e 4b 64 

05d8 

dd ad Od dd a9 00 20 4e 43 

0520 

8d 20 03 8o 21 03 a9 3c 59 

o580 

53 20 54 4f 20 d4 48 4f 4b 

o5e0 

03 a9 04 85 9a 18 60 46 e2 

0528 

aO 03 8d 26 03 8o 27 03 a9 

0588 

4d 41 53 20 cd 4l 4e 47 fd 



c530 

60 05 Oe o7 49 47 4l 2d be 

c590 

4f 4 g 44 00 48 a5 9a c9 e6 

Llstlng 1. Der Programmteil »gpB« 

c538 

dO 55 42 4c 49 53 48 20 5e 

c598 

04 fO 03 4c cd fl ad Od 9o 

mit zusätzlicher Centronics-Schnitt- 

o540 

d 6 31 2e 30 Od Od Od Od 08 

c5a0 

dd 29 10 fO f9 68 8d 01 4f 

stelle. Geben Sie das Listing bitte 

0548 

20 20 20 20 20 57 52 49 Id 

o5a8 

dd ad 00 dd 29 fb 8d 00 eO 

mit dem MSE (Seite 159) ein. 
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Der Weg 


Die fantastischen Fähigkei¬ 
ten des C64 zur Kianger- 
zeugung sind aüge- 
mein bei^nnt. Doch 
wissen Sie, wie man 
dem Computer die toil- 
sten Töne und Musik¬ 
stücke entlockt? 

Lernen Sie das 
»Sound-Wunder« 
in der foigenden 
Einführung gründ¬ 
lich kennen, und 
gestaiten Sie ihre Hits seihst. 


«R ODLf 


Z ur Erzeugung von Geräuschen und Musik ist der C64 
mit einem leistungsfähigen Baustein ausgestattet. Er 
trägt die Bezeichnung 6581 und soll hier im folgenden 
SID genannt werden. SID steht für »Sound Interface Devi¬ 
ce«, was man mit »Klang-Schnittstellen-Baustein« überset¬ 
zen könnte. Der SID ist eigentlich ein kleiner Synthesizer, 
der dreistimmige Melodien spielen oder drei unabhängige 
Geräusche gleichzeitig erzeugen kann oder auch eine 
f^mbination von beiden, zum Beispiel eine zweistimmige 
Melodie oder ein Geräusch. Wie man ihn dafür program¬ 
miert, soll hier gezeigt werden. Da das Standard-Basic des 
C64 keine speziellen Befehle zu diesem Zweck vorsieht, 
muB man sich näher mit dem inneren Aufbau des SID be¬ 
fassen, um ihn dann mit PEEK- und POKE-Befehlen zu 
steuern. Dieser gezwungenermaßen etwas unelegante 
Programmierstil hat aber wenigstens einen Vorteil für den¬ 
jenigen, der in Maschinensprache programmieren kann 
oder es lernen will. Er kann nämlich die PEEK- und POKE- 
Befehle direkt in die Assemblersprache übernehmen. Stür¬ 
zen wir uns also gleich mittenhinein in die SID-Program- 
mierung (in Basic). 

Beim SID wird ein Klang durch folgende Parameter 
(= Steuergrößen) beeinflußt: 

1. Lautstärke 

2. Hüllkurve Sie steuert den zeitlichen Lautstärken¬ 
verlauf zum Beispiel eines ausklingen¬ 
den Tones. 

3. Kurvenform Sie ist für den Klangcharakter des Tones 
verantwortlich. 

4. Frequenz Sie entspricht der Tonhöhe. 

Mit Einzelheiten und mit weiteren Parametern zur Klang¬ 
steuerung werden wir uns gleich befassen. Zunächst wol¬ 
len wir aber einmal einen Ton erzeugen, zum Beispiel um 
zu hören, ob unser Monitor oder Fernseher, der die Töne 
wiedergeben muß, richtig eingestellt ist (Perfektionisten 


schließen den C64 über die AudioA/ideo-Buchse und ein 
normales DIN-Überspielkabel an die HiFi-Anlage an). Fol¬ 
gende Pokes helfen bei dieser Einstellung: 

Der erste Ton 


POKE 54296,15 
POKE 54278.240 
POKE 54273,67 

POKE 54276,17 


stellt den SID auf maximale Lautstärke 
wählt eine einfache Hüllkurve, 
stellt eine Frequenz ein 
(zirka 1000 Hz). 

wählt eine sogenannte Dreieckskurve 
und schaltet zugleich den Ton ein 
(muß immer als Letztes gescheheni). 

Jetzt müßte ein Ton hörbar sein, der ähnlich wie bei ei¬ 
nem Fernseh-Testbild klingt. 

POKE 54276,16 schaltet den Ton wieder ab. 

Der gleiche Ton mit schärferem Klang gefällig? 

POKE 54276,33 wählt eine »Sägezahnkurve«. Diese 
klingt heller und schärfer als das 
Dreieck. 

Doch anstatt mit geheimnisvollen POKEs zu arbeiten, 
sollten wir uns doch besser systematisch mit dem SID be¬ 
fassen. Wer aber nur schnell einen Klangeffekt für ein eige¬ 
nes Programm benötigt und wen die Einzelheiten des SID 
nicht so sehr interessieren, der kann den systematischen 
Teil überspringen und gleich bei »Klangeffekte zum Abtip¬ 
pen« weiterlesen. 

Unter einem Register versteht man in der Computertech¬ 
nik einen Speicherplatz, der mit einer besonderen Funk¬ 
tion gekoppelt ist. Diese Speicherplätze sind also nicht da¬ 


zu da, um Daten darin abzulegen, sondern um eine Funk¬ 
tion auszulösen oder um Informationen über den Zustand 
eines Bausteins zu bekommen. Man unterscheidet dem¬ 
nach Schreibregister und Leseregister. 
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zum richtigen Ton 


Oer SID verfügt insgesamt über 25 Schreib- und Lesere¬ 
gister. Auf Bild 1 sind diese In grafischer Form dargestellt. 
Der SID hat die Basisadresse: 

S s 54272 (dezimal) oder $D400 (hexadezimal) 

Unter dieser und den 28 folgenden Adressen können die 
Register des SID angesprochen werden. Wir werden in Zu¬ 
kunft Registeradressen wie in Bild 1 immer in der Form S-i-n 
(n = Obis 28) angeben, weil diese Schreibweise prägnan¬ 
ter als eine fünfstellige ^hl ist. Es ist empfehlenswert, sich 
auch in Programmen an diese Vereinbarung zu halten. 

Das Registerschema gliedert sich in drei Blöcke: 

Der erste Block ist in Wirklichkeit dreimal vorhanden, für Je¬ 
de Stimme einmal. Die sieben Register dieser Blöcke ha¬ 
ben also für die drei Stimmen unterschiedliche Adressen, 
wie links im Schema auch angegeben ist. 

Der zweite Block (S-i-21 bis S+24) dient hauptsächlich 
zur zusätzlichen Klangbeeinflussung durch einen Filter. 
Den Filter werden wir aber erst später behandeln. Aus die¬ 
sem Block interessiert zunächst nur die rechte Hälfte des 
Registers S-t-24, das für die Lautstärke zuständig ist. 

Der dritte Block (S-»-25 bis 8+28) besteht aus vier soge¬ 
nannten »Nur-Lese-Registern«. Aus diesen Registern kann 
nur gelesen werden, Schreibzugriffe bleiben wirkungslos. 
Auch diese Register, die Spezialeffekten dienen, interes¬ 
sieren uns zunächst noch nicht. 

Ein Register besteht, wie jeder andere Speicherplatz 
beim C64 auch, aus einem Byte, beziehungsweise 8 Bit. 
Man sieht, daß einige Register noch in Felder unterteilt 
sind. Bei diesen Registern haben einzelne Bits oder Bit¬ 
gruppen unterschiedliche Bedeutung. Die schraffierten 
Bereiche kennzeichnen Bits, die keine Funktion im SID ha¬ 
ben. Wir werden bald sehen, wie man einzelne Bits inner¬ 
halb eines Byte gezielt ansprechen kann. Nun zu den Regi¬ 


stern im einzelnen: Es werden beim ersten Block stellver¬ 
tretend die Register der Stimme 1 (S+0 bis S+6) beschrie¬ 
ben. Die Register für Stimme 2(S+7 bis S+13) und Stimme 
3 (S+14 bis S+20) sind in ihrer Funktion identisch. 

Ab hier ist es praktisch, wenn man bei der Lektüre das 
kleine Programm aus Listing 1 im Computer hat, denn dann 
kann man die Wirkung der Parameter in den SID-Registern 
gleich ausprobieren. Die Parameter stehen gut les- und edi¬ 
tierbar in den DATA-Zeilen. Das Programm erzeugt nach 
dem Starten einen Ton bei einem beliebigen Tastendruck. 
Tasten mit Auto-Repeat-Funktion, wie zum Beispiel die 
Space-Taste, erzeugen einen Dauerton. Abgebrochen wird 
das Programm mit der RUN/STOP-Taste. Der letzte Para¬ 
meter steuert übrigens die Tonlänge durch eine einfache 
Verzögerungsschleife. 

Frequenz S+0 und S +1 


Die Frequenz kann beim SID auf 16 Bit genau angegeben 
werden. Eine 16-Bit-Zahl kann Werte zwischen 0 und 65535 
annehmen. Dieser Wert entspricht allerdings nicht der Fre¬ 
quenz in Hz (Hertz = Schwingungen pro Sekunde). Der 
SID-Wert F zu einer gegebenen Frequenz in Hz errechnet 
sich nach: 

F,Q^|’^p284 * Frequenz 

'beröiD-Wert F zum sogenannten Kammerton a mit 440 
Hz beträgt also (ganzzahlig gerundet): 

F = 17.0284 * 440 « 7492 
Die höchste vom SID erzeugbare Frequenz beträgt dann 
(gerundet): 

65535 / 17.0284 =» 3849 (Hz) 

Zum Experimentieren mit Klangeffekten interessiert uns 

die genaue Frequenz ei¬ 
gentlich gar nicht, für kor¬ 
rekt gestimmte Tonleitern 
müssen wir sie dagegen 
kennen. Zunächst wollen 
wir aber erfahren, wie man 
den SID mit dem Wert F 
(Frequenz) programmiert. 
Diese im Dezimalsystem 
maximal fünfstellige Zahl 
wird im Binärsystem durch 
16 Bit dargestellt. Da es sich 
beim C64 um einen 
8-Bit-Mikrocomputer han¬ 
delt, müssen wir diesen 
Wert in zwei 8-Bit-Hälften, 
das sogenannte niederwer¬ 
tige und höherwertige Byte, 
kurz Low-Byte'und High- 
Byte zerlegen. Hier zwei 
»Rezepte«: 

1. Methode (Standard): 

HI = INT(F/256) 

LO = F-256»HI 

Das ist nichts anderes als 
eine Division durch 256 mit 
Rest. Hl ist dabei der Quo¬ 
tient und LO der Divisions- 


Adressen: 
summe 1 

stimme 2 

Stimme 3 

S+O 

S+7 

Sf 14 

S + 1 

S+8 

$416 

$+2 

S+8 

S4ie 

S-f3 

S-ftO 

S + 17 

S-f4 

S + 11 

$41» 

S+S 

S + 12 

$41» 

s+e 

s+ia 

$420 


Die Register des SID BaBisadmse d« sid; s • S4272 


7 1 6 1 6 j 4 1 3 

2 1 

0 

Frequenz- low 

Frequenz-tiigh 

Pulswelte-low 


Pulswelte-high (4 Bit) 

/v\ 

Thi 

RlAinod lyie 

QU« 

Ätteet! A—^ 

Deoey 

Suelaln 

Peleese f '— 



Bild 1. Alle Register des Sound-Chip auf einen Blick 
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rest. Die Werte LO und Hl sind beides Byte-Werte und lie¬ 
gen damit im Bereich 0 bis 255. Im Fall F=7492 (entspre¬ 
chend 440 Hz) ergibt sich zum Beispiel: 

HI = 29 und LO = 68 

2. Methode (mit Einschränkungen, aber schneller): 

HI = F/256 
LO = F AND 255 

Die INT-Funktion zur Berechnung von Hl wurde hier ge¬ 
spart. Hl kann hier noch Nachkommastellen haben; diese 
werden aber später von dem noch folgenden POKE-Befehl 
abgeschnitten. Die Berechnung von LO funktioniert hier 
nur bei F-Werten im Bereich 0 bis 32767. Die zweite Metho¬ 
de ist nur dann zu empfehlen, wenn es auf Geschwindigkeit 
ankommt. 

Mit den Werten LO und Hl müssen wir dann die beiden 
Register S+0 und S+1 besetzen; 

POKE S+0,L0 
POKZ S+1,HI 

Man kann die Wirkungsweise des High- und Low-Bytes 
auch als Grob- und Feineinstellung auffassen. Oft genügt 
für einen Klang eine grobe Frequenzsteuerung. Man 
braucht dann nur das High-Byte zu berücksichtigen und 
kann das Low-Byte ein für allemal zum Beispiel auf 0 set¬ 
zen. 


Bit 

Dezimal- 



wert 

(POKE...> 

FunWion 

0 

1 

GATE schaltet Ton ein und aus 

1 

2 

SYNC Synchronleallon (Spezialeffekt) 

2 

4 

RING Ringmodulatlon (Spezieleffekt) 

3 

8 

TEST Reset 

4 

16 

wählt Dreieckskurve 

5 

32 

wählt Sägezahnkurve 

6 

64 

wählt Rechteckkurve 

7 

128 

wählt Rauschen 


Mit einem POKE an die Adresse S-i-4 werden immer alle 
acht Bit gleichzeitig beeinflußt. Einen Befehl zum Setzen 
oder Löschen einzelner Bits gibt es nicht. Man muß sich da¬ 
her über die gewünschten Werte aller acht Bits im klaren 
sein, auch wenn man nur ein Bit verändern will. Um den 
richtigen POKE-Wert zu erhalten, müssen die Wertigkeiten 
der Bits, die man setzen will, addiert werden. Die folgenden 
drei Beispiele sollen zur Veranschaulichung dienen: 

1. Rechteck wählen und Ton einschalten 


Pulsweite S+2 und $4-3 


Der Parameter »Pulsweite« ist nur wirksam, wenn als Kur¬ 
venform das Rechteck gewählt wurde. Die Kurvenformen 
sind in Bild 1 bei Register S+4 grafisch dargestellt und wer¬ 
den im nächsten Abschnitt besprochen. Das Rechteck ist 
eine Kurvenform, die nur zwischen zwei Werten hin- und 
herspringt. Ist der obere Wert genauso lang wie der untere, 
so spricht man von einer symmetrischen Rechteckkurve. 
Das Verhältnis zwischen der Länge des oberen und des un¬ 
teren Wertes kann mit dem Parameter »Pulsweite«, im fol¬ 
genden P genannt, gesteuert werden. P kann Werte von 0 
bis 4095 annehmen und wirkt sich auf die Klangfarbe des 
Tones aus. Das symmetrische Rechteck, das man mit P = 
2048 erhält, klingt verhältnismäßig hohl und wird als typi¬ 
scher Rechteckklang bezeichnet. Entfernt man sich mit P 
von 2048 in Richtung 0 oder 4095, so wird der Klang zuneh¬ 
mend heller und später schnarrend oder zirpend. Maßgeb¬ 
lich ist hierbei nur der Abstand von P zum Mittelwert 2048. 
So klingt zum Beispiel P = 2048+500 genauso wie P = 
2048-500. Bei P=0 und P=4095 wird kein Ton mehr er¬ 
zeugt. 

P ist eine 12-Bit-Größe und muß wie F in ein Low- und ein 
High-Byte zerlegt werden. Beim High-Byte können dabei 
nur die unteren vier Bit gesetzt sein. Zu diesem Zweck kann 
man ohne Einschränkungen die schon beschriebene Me¬ 
thode 2 anwenden: 

HI = P/256 
LO = P AND 255 
POKE S+2,L0 
POKE S+3,HI 


Bits: 6 und 0 

= Byte-Wert: 216 + 1 = 65 
POKE S+4,65 

2. Ton abschalten, Rechteck gewählt lassen 

Bits: 6 

Byte-Wert: 216 = 64 

POKE S+4,64 

Anmerkung: Beim Abschallen eines Tons sollte man im¬ 
mer die zuletzt gewählte Kurvenform gewählt lassen, damit 
*^'?fer‘t3f?"Jusklingen kann. Mit POKE S+4,0 (alle Bits rück- 
setzen) wird der Ton abrupt abgebrochen. 

3. Dreieck mit Ringmodulation wählen, Ton einschalten 

Bits: 4, 2 und 0 

Byte-Wert: 214 + 212 + 210 = 16 + 4+1=21 

POKE S+4,21 

Die Kurvenform 


Steuerregister $44 


Dieses Register ist für mehrere Funktionen gleichzeitig zu¬ 
ständig: 

- Die Wahl der Kurvenform 

- Ein- und Ausschalten des Tones 

- Spezialeffekte Ringmodulation und Synchronisation 

- Reset der Stimme 

Zunächst einmal eine Tabelle mit den Funktionen im ein¬ 
zelnen: 


Sie bestimmt die Klangfarbe des Tones. Am vielseitigsten 
ist das schon besprochene Rechteck, weil man es durch 
die Pulsweite reichhaltig gestalten kann. Der Sägezahn 
klingt noch etwas heller und strahlender als das Rechteck, 
Er eignet sich besonders gut zur Imitation mancher Instru¬ 
mentenklänge wie Streicher und Blechbläser. Das Dreieck 
klingt dagegen weich und dumpf und ist bei liefen Tönen 
leider leise. Der Klang ist aber bei hohen Tönen sehr ange¬ 
nehm. Rauschen eignet sich für Effekte wie Wind, Düsen¬ 
lärm, Schüsse, Explosionen und Schlagzeugklänge. Das 
Rauschen hat zwar keine feste Tonhöhe, doch sein Kiang- 
charakter wird durch den Frequenzparameter entschei¬ 
dend beeinflußt. 

Indem man zwei Kurvenform-Bits gleichzeitig setzt, kann 
man durch Kombination mehrerer Kurvenformen weitere 
Klänge erzeugen. Dabei werden die Einzelklänge nicht et¬ 
wa einfach gemischt, sondern andere Kurvenformen er¬ 
zeugt. Rauschen läßt sich allerdings nicht mit einer ande¬ 
ren Kurvenform kombinieren. Auch die Kombination von 
drei Kurvenformen ist unbrauchbar. Sie liefert einen leisen, 
fast im Rauschen untergehenden Klang. Es bleiben also 
drei Kombinationen, die sehr interessant klingen: 
Wellenform POKE-Wert (An/Aus) 

Rechteck - Sägezahn 97/96 

Rechteck - Dreieck 81/80 

Sägezahn - Dreieck 49/48 
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Der Klangcharakter variiert stark von tiefen zu hohen Tö¬ 
nen. Die letzte Kombination liefen nur bei sehr tiefen Tönen 
gute Resultate. Der Klang der ersten beiden Kombinatio¬ 
nen hängt natürlich auch von der Pulsweite P ab. 

Die Speiialeffekte 


Sie sollen hier nur am Rande erwähnt werden. Wird das 
SYNC-Bit für Stimme 1 gesetzt {Bit 1 in Register S+4), so 
kann Stimme 1 nicht mehr frei schwingen, sondern wird von 
Stimme 3 mit beeinfluBt, man sagt hier »synchronisiert«. 
Auch das Ring-Bit bewirkt, daß Stimme 3 die Stimme 1 be¬ 
einflußt. Diese sogenannte Ringmodulation wirkt aller¬ 
dings nur auf die Dreieckskurve. Der Effekt ist daher nur 
hörbar, wenn das Ring-Bit (Bit 2) zusammen mit Bit 4 für 
Dreieck gesetzt wird. Beide Effekte liefern ähnliche Resul¬ 
tate. Es fassen sich unter anderem metallische und glocke¬ 
nähnliche Klänge erzeugen. Die Stimme 3 braucht dabei 
nicht über ihr GATE-Bit eingeschaltet werden. Maßgeblich 
ist nur die Frequenz von Stimme 3 (Register S+14 und 
S+15). 

Nun besitzen natürlich auch Stimme 2 und 3 je ein 
SYNC- und ein RING-Bit. Die drei Stimmen steuern sich da¬ 
bei nach dem Schema: 

Stimme 1 -► Stimme 2 

Stimme 2 -► Stimme 3 

Stimme 3 -► Stimme 1 

Das TEST-Bit wird man wahrscheinlich nie benötigen. Es 
übt eine lokale Reset-Funktion auf die jeweilige Stimme 
aus. Solange es gesetzt ist, ist nichts hörbar, unabhängig 
von den anderen Bits. Wenn man allerdings versucht, 
Rauschen mit einer anderen Kurvenform zu kombinieren, 
kann es passieren, daß die betroffene Stimme gewisserma¬ 
ßen »abstürzt« und nichts mehr von sich gibt. Man kann sie 
dann mit einem gezielten Reset über das TEST-Bit wieder 
zum Leben erwecken. 

Die Hüllkurven S-f 5 und S+6 


Wenn eine Stimme über das GATE-Bit eingeschaltet wird, 
dann folgt ihr zeitlicher Lautstärkenverlauf einer program¬ 
mierbaren Hüllkurve. Die Hüllkurve bestimmt unter ande¬ 
rem, ob der Ton hart oder weich einsetzt und ob er schnell 
oder langsam ausklingl. Der Name kommt von den vier 
Phasen, diedie Hüllkurve durchläuft. Jeder Phase ist dabei 
ein Parameter zugeordnet. 

Attack Die Attack-Phase wird durch das Setzen des 
GATE-Bits eingeleitet. Der Pegel steigt dabei von 
0 bis Maximum (Lautstärkeregister) an. Die Zeit 
für diesen Anstieg ist über den Parameter A in 16 
nicht-linearen Stufen von 2 ms bis 8 s einstellbar. 
Eine kurze Attack-Phase bewirkt einen unmittel¬ 
baren und harten Toneinsatz wie bei Schlag¬ 
oder Zupfinstrumenten. Eine mittlere Attack-Zeit 
ist typisch für Bläser- und Streicherklänge, und 
mit einer langen Attack-Zeit kann man einen Ton 
wie am Mischpult langsam einblenden. 

Decay Nachdem der Maximalwert erreicht ist, fällt der 
Pegel in der Decay-Phase bis auf den Sustain- 
Pegel ab. Die Zeit dazu ist mit dem Parameter D 
in 16 nicht-linearen Stufen von 6 ms bis 24 s ein¬ 
stellbar. 

Sustain nennt man die Phase nach dem Pegelabfall in 
der Decay-Phase. Der Ton klingt dann so lange 
auf dem Sustain-Pegel weiter, bis das GATE-Bit 
zurückgesetzt wird. Der Parameter SU bestimmt 
hier also keine Zeit, sondern einen Pegel und 
zwar in 16 linearen Stufen von Null bis Maximum. 


Release Beim Rücksetzen des GATE-Bits wird der Ton 
nicht einfach abgeschaltet, sondern nimmt in der 
Release-Phase gleichmäßig vom Sustain-Pegel 
bis nach Null ab. Die Zeit dazu ist in der gleichen 
Abstufung wie die Release-Zeit über den Para¬ 
meter R einstellbar. 



Bild 2. Hier sehen Sie wie sich unterschiedliche Werte für 
ADSR auf die Müllkurve auswirken 


Wenn das GATE-Bit bereits vor Erreichen der Sustain- 
Phase rückgesetzt wird, dann startet die Release-Phase 
mit dem aktuellen Pegel der Hüllkurve. Auf diese Weise er¬ 
geben sich: 

a) Attack-Decay-Release-Zyklen ADR oder gar nur 

b) Attack-Release-Zyklen AR 

Bei einem Sustainpegel von Null sind Decay und Relea¬ 
se funktionell gleichwertig (9, Beispiel in Bild 2). Bei einem 

Sonderfälle 


maximalen Sustain-Pegel entfällt die Decay-Phase (Attack- 
Sustain-Release-Zyklus ASR, 1. Beispiel in Bild 2). 

Die Parameter A, D, SU und R sind 4-Bit-Wert6. Jeweils 
zwei von ihnen werden wie folgt in ein Register gepackt: 
POKE S+5,16«A+D 
POKE S+6,16»SU+R 

Bild 3 zeigt einige Hüllkurvenbeispiele. 

Die bisher erworbenen Kenntnisse befähigen Sie, ein¬ 
drucksvolle Klänge aus dem SID herauszulocken. Probie¬ 
ren Sie die verschiedenen Möglichkeiten der Klangerzeu¬ 
gung aus. Was uns noch fehlt, ist die weiterführende Beein- 
fluBung der Töne, beispielsweise durch Filter 
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Der Filter bietet neben der Wahl der Kurvenform eine weite¬ 
re Möglichkeit zur Klangbeeinflussung. Im Gegensatz zu 
den vorher beschriebenen Parametern muß man sich aber 
nicht um den Filter kümmern, da er abschaltbar ist und weil 
der SID auch ohne Filter reichhaltige Klänge erzeugen 

Filter, Register S+21 bis S+24 


kann. Um die Wirkungsweise eines Filters zu verstehen, 
muß man sich einen Klang aus mehreren sogenannten Si¬ 
nustönen zusammengesetzt denken, dem Grundton und 
den Obertönen, Sinustöne sind gewissermaßen die nicht 
mehr weiter zerlegbaren Atome in der Akustik. Ein reiner 
Sinuston klingt dumpf und ohne charakteristische Fär¬ 
bung. Die vom SID erzeugte Dreiecksschwingung kommt 
vom Klang her einem Sinuston recht nahe, Die anderen 
Kurvenformen verdanken ihren helleren Klang einem reich¬ 
haltigeren Obertonspektrum {* Folge von Obertönen). 



SonderfQlle 


a) frohes Gote-off b) sehr frohes Oste—off 




e) moxlmelar Sustoln-Pegel d) SustoTn-Psgel • 0 


Bild 3. Einige ADSR-Werte und die dazugehörigen 
HUllkurven 

Und dieses Obertonspektrum kann man mit dem Filter ver¬ 
ändern. Der Filter im SID kennt dazu drei Betriebsarten, die 
über die Bits 4,5 und 6 in Register S-i-24 gewählt werden: 
Tiefpaß Frequenzen (Obertöne) oberhalb der in den Re¬ 
gistern S-i-21 und S-t-22 einstellbaren Fitterfre- 
quenz werden abgeschwächt, und zwar um so 
mehr, je höher diese Frequenzen sind. Der Ge¬ 
samtklang wird dadurch dunkler und weicher. 


HochpaB Es werden die Frequenzen abgeschwächt, die 
unterhalb der Filterfrequenz liegen. Höhere Fre¬ 
quenzen werden ungehindert durchgelassen. 
Mit einem Hochpaß kann man den Grundton ei¬ 
nes Klanges abschwächen. Seine Qesamtzu- 
sammensetzung verschiebt sich dann zugun¬ 
sten der Obertöne. Der Klang wird dabei dünner 
und heller. 

Bandpaß Dieser Filtermodus schwächt Frequenzen auf 
beiden Seiten der Filterfrequenz ab. Der Klang 
wird dabei, wie man fast erwarten kann, etwas 
dürftig, sofern man nicht maximale Resonanz 
(siehe weiter unten) einstellt. 

Filterfraquenz 
(Register S+22 und S+23) 


Oie Filterfrequenz kann auf elf Bit genau eingestellt wer¬ 
den. Dabei kann man aber die drei niederwertigen Bits in 
Register S-h21 unberücksichtigt lassen, da ihr Einfluß prak¬ 
tisch unhörbar ist. 

Resonanz und Stimmen^Aftihlschalter 
(Register S+23) 


über den 4-Bit-Parameter Resonanz kann ein gefilterter 
Klang effektvoller gestaltet werden. Bei großer Resonanz 
(der Maximalwert ist 15) werden Frequenzanteile In der Ge¬ 
gend der Filterfrequenz verstärkt. Die sonstigen abschwä¬ 
chenden Eigenschaften von Tief- und Hoch- und Bandpaß 
- bjejbe^MSinbei erhalten. 

Uber dfe Bits 0,1 und 2 desselben Registers kann man 
für jede der drei SID-Stimmen unabhängig wählen, ob sie 
gefiltert oder ungefiltert erklingen soll, ist zum Beispiel Bit 
0 gesetzt, so wird Stimme 1 gefiltert. Das Bit 3, Filter Ex, 
steuert die Verarbeitung einer von außen zuführbaren Si¬ 
gnalquelle, zum Beispiel eines zweiten SID. 

Filtermodus und Loutstörke 
(Register S+24) 


Die Lautstärkeneinstellung haben wir schon kennenge¬ 
iernt. Man wird sie meistens auf Ihren Maximalwert 15 stel¬ 
len, weil dann der Rauschabstand und damit die Klangqua¬ 
lität am besten ist. Durch Setzen der Bits 4,5 und 6 wird die 
Betriebsart des Filters. Tief-, Band- oder Hochpaß gewählt. 
Die Betriebsarten sind uneingeschränkt kombinierbar. Mit 
Bit 7 (S3 Aus) kann man die Stimme 3 unhörbar machen. 
Der Sinn dieser Funktion wird in folgendem Abschnitt klar. 

Ein Beispiel zur Filterprogrammierung: 

Stimme 1 soll mit maximaler Resonanz durch den Tiefpaß¬ 
filter geschickt werden: 

FF =50 Filterfrequenz (nur High-Byte) 

FR = 24l (=15»16 für Resonanz +1 für Bit 1) 

ML = 31 (=16 für Bit 4 + 15 für Lautstärke) 

P0KES+22,FF 

POKESf23,FR 

P01CESf24,ML 

Die leseregister S+25 bis S+28 


Die Register S-F25 und,S+26 haben mit der Klangprogram¬ 
mierung nichts zu tun. Über sie können die Werte zweier an 
Joystick-Ports angeschtossener Potentiometer (Paddies) 
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KURSE 


Register 

A 

S+5 

D 

S+5 

SU 

S+6 

R 

S+6 

C 

S+4 

P 

S+2 

S+3 

F 

S 

S+1 

FF 

S+22 

FR 

S+23 

ML 

S+24 

M 

Glöckchen 

0 

10 

0 

10 

16 

X 

40000 

X 

0 

15 

100 

Oboe 

e 

7 

10 

8 

64 

250 

7500 

X 

0 

15 

500 

Fagott 

e 

7 

10 

8 

64 

250 

2500 

X 

0 

15 

750 

Zungenpfeife 

8 

0 

15 

10 

48 

X 

400 

X 

0 

15 

1000 

Banjo 

0 

8 

0 

8 

32 

X 

7500 

50 

241 

111 

30 

Stahl 

0 

0 

15 

12 

96 

2044 

30000 

X 

0 

15 

100 

Feder 

0 

8 

0 

g 

32 

X 

750 

X 

0 

15 

35 

Preßlufthammer 

0 

0 

15 

10 

60 

2100 

200 

X 

0 

15 

2000 

Schuß 

0 

8 

0 

10 

128 

X 

10000 

X 

0 

15 

50 

Starkstrom 

0 

0 

15 

0 

128 

X 

100 

X 

0 

15 

2000 

Düsenflugzeug 

0 

0 

15 

13 

128 

X 

3000 

50 

241 

31 

3000 

Rakete 

0 

0 

15 

15 

128 

X 

1000 

10 

241 

31 

3000 


X - don'1 care (Parameter mu6 ntcht eingestellt werden) 


Tabelle 1. Einige Beispiel-Effekte für Llstlng 1. Die Parameter müssen In den Zellen 320 bis 390 verändert werden. 


abgefragt werden. Interessant sind die Register S-i-27 und 
S-)-28: 

Aus S+27 kann man den Signalverlauf von Stimme 3 in 
Form von Byte-Werten lesen. Mit folgendem kleinen Pro¬ 
gramm kann man diesen Signalverlauf sogar sichtbar ma¬ 
chen: 

10 S=54272 

20 POKE S+14,10 .-REM F LOW 

30 POKE S+15,0 ;REM F HIGH 

40 POKE S+18,16 :REM DREIECK 

50 PRINT TAB(PEEK(S+27)/7);' ''':GOTO 50 
Hier sollte man einmal ein wenig mit den Parametern in 
Zeile 20-40 experimentieren. 


Auf die gleiche Weise kann man aus Register S-i-28 den 
Hüllkurvenverlauf von Stimme 3 lesen. 

100 3=54272 

110 POKE S+19,16+11+11 :REM A D 

120 POKE 3+20,16*8 +11 :REM S R 
130 POKE 3+18,1 :REM GATE ON 

140 FÜR 1=1 TO 50 
150 PRINT TAB(PEEK(S+28)/7);" " 

160 NEXT I 

170 POKE S+18,0 :REM GATE OFF 

180 FOR 1=1 TO 50 

190 PRINT TAB(PEEK(S+28)/7);" *' 

200 NEXT I 

Diese Werteverläufe sind besonders zum Modulieren an¬ 
derer Stimmen geeignet. Normalerweise möchte man 
Stimme 3 dann nicht hören, wenn man ihren Signalverlauf 


oder ihre Hüllkurve anderweitig verwendet. Man kann sie 
dann, wie schon erwähnt, über Bit 7 in Register S+24 aus¬ 
schalten. 

Klangeffekte zum Abtippen 


Nach diesem systematischen Teil folgen noch Einstellun¬ 
gen. Tabelle 1 enthält einige Parametersätze für Klänge, die 
der SID ohne großen Programmieraufwand erzeugen 
kann. Die Klangbezeichnungen wollen die Effekte nur sub¬ 
jektiv beschreiben und sind natürlich nicht zu wörtlich zu 
nehmen. Man muß nun lediglich die Werte einer Zeile in die. 


in der Kopfzeile angegebenen SID-Register schreiben, das 
GATE-Bit setzen und nach einiger Zeit zurücksetzen. Der 
Parameter M ist übrigens kein SID-Parameter, sondern soll 
eine Verzögerungsschleife steuern, die die Zeit zwischen 
GATE ON und GATE OFF bestimmt. Parameter M bezieht 
sich auf das Programm in Listing 1, das beim Experimentie¬ 
ren Hilfestellung leisten soll. Im DATA-Teil ab Zeile 320 sind 
die Parameter aus Tabelle 1 einzusetzen und zwar genau 
in der gleichen Reihenfolge. Das Programm belegt nach 
dem Start den SID mit den Parametern aus den DATA-Zei- 
len und wartet auf einen beliebigen Tastendruck, der dann 
den Kiangeffekt auslöst. Man versuche es auch einmal mit 
denTasten, die eine Auto-Repeat-Funktion haben, wie zum 
Beispiel die Space-Taste. 

Das Programm aus Listing 2 ist ganz ähnlich aufgebaut, 
kann aber ein viel größeres Spektrum von Effekten dadurch 
realisieren, daß es die Frequenz von Stimme 1 dynamisch 


Fest eingestellt: 

Register 

FF 

S+22 

FR 

S+23 

ML 

S+24 


X 

0 

15 

Register 

A 

S+5 

D 

S+5 

SU 

s+6 

R 

S+6 

c 

s+4 

P 

S+2 

S+3 

F 

S 

S+1 

G 

N 

M 

Telefon 

0 

10 

0 

10 

16 

X 

16000 

1.33 

2 

25 

Laserkanone 

0 

0 

13 

0 

64 

1000 

30000 

0.85 

10 

1 

Take-Off 

0 

0 

15 

15 

126 

X 

500 

1.004 

1000 

1 

Turbine 

0 

0 

15 

15 

96 

2044 

20000 

1.001 

460 

1 

Trommelwirbel 

0 

5 

2 

9 

128 

X 

20000 

1 

2 

30 

Maschinengewehr 

0 

5 

2 

9 

128 

X 

12000 

0.7 

3 

30 


X B don't care (Parameter muß nicht eingestellt werden) 


Tabelle 2. Einige Beispiel-Effekte für Listing 2. Die Parameter müssen In den Zellen 420 bis 480 verändert werden. 
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KURSE 


Register 

A 

D 

SU 

R 

c 

P 

F 

G 

N 

M 

A3 

S-*-19 

B3 

S+19 

F3 

S+20 

R3 

S-t-20 

C3 

S+18 

P3 

S+16 

S+17 

F3 

S+14 

S+15 

0 

Vogelgezwitscher 

0 

8 

0 

8 

16 

X 

40000 

500 

6 

10 

0 

8 

0 

0 

X 

X 

X 

28 

Bongo 

0 

7 

0 

7 

16 

X 

4000 

1000 

4 

1 

0 

8 

0 

0 

X 

X 

X 

28 

E-Bae 

0 

8 

0 

9 

32 

X 

750 

1000 

7 

1 

0 

10 

0 

0 

X 

X 

X 

28 

Dampfhammer 

0 

9 

0 

11 

128 

X 

5000 

200 

20 

15 

0 

9 

0 

9 

X 

X 

X 

28 

Martinshorn 

0 

0 

15 

8 

64 

1000 

7000 

720 

300 

1 

X 

X 

X 

X 

64 

2046 

15 

27 

Sirene 

10 

13 

0 

0 

64 

2048 

10000 

400 

300 

1 

X 

X 

X 

X 

16 

X 

30 

27 

Geklimper 

0 

0 

15 

0 

64 

2046 

10000 

200 

400 

1 

X 

X 

X 

X 

128 

X 

20 

27 

Grollen 

9 

10 

0 

0 

32 

X 

50 OX 

2000 

40 

10 

X 

X 

X 

X 

128 

X 

500 

27 


Tabelle 3. Einige Beispiel-Effekte für LIstIng 3. Die Parameter müssen In den Zeilen 610 bis 650 verändert werden. 


verändert, Dazu dient die innere Schleife, Zeiie 260-300. 
Dort wird bei jedem Durchiauf die Frequenz Fl mit einem 
Faktor G multipliziert. Für G > 1 steigt die Frequenz schnel¬ 
ler an, für G < 1 nimmt sie ab und zwar um so schneller, je 
weiter G von 1 entfernt ist. Die Umrechnung von Fl in Low- 
und High-Byie geschieht hier nach der schnellen Methode 
2. Man beachte, daß damit nur Fl-Werte bis 32767 verarbei¬ 
tetwerden können, also nur die Hälfte des vollen Frequenz¬ 
umfangs des SID, In der äußeren Schleife wird der Wert 
von Fl auf seinen Ausgangswert F zurückgesetzl. Außer¬ 
dem steuert die äußere Schleife bei jedem Durchlauf einen 
ADSR-Hüllkurvenzyklus durch GATE-ON-GATE-OFF. Die 
'Zahl N gibt dabei die Anzahl der inneren Schleifendurch¬ 
läufe an, die Zahl M die der äußeren Schleifendurchläufe. 
Beispielparameter zu Listing 2 findet man in Tabelle 2. 

Das dritte Programm (Listing 3) verwendet schließlich 
den Signaiverlauf oder die Hüllkurve von Stimme 3, um 
Stimme 1 zu modulieren. Dies geschieht in der inneren 
Schleife, Zeile 360-380. Q ist dabei die Adresse eines der 
Leseregister des SID, also entweder S-i-27 für den 'Signal¬ 
verlauf oder S+28 für den Hüllkurvenverlauf. Ip der DATA- 
Zeile 650 ist dazu nur 27 oder 28 anzugeben. Über die Va¬ 
riable G kann die Stärke der Modulation, die sogenannte 
Modulationstiefe, gesteuert werden. Ein kleinerer Wert von 
Q ergibt hier eine stärkere Modulation. Die äußere Schleife 
steuert hier ADSR-Hüllkurvenzyklen für Stimme 1 und 
Stimme 3. Dieses kleine Programm sollte Anlaß zum weite¬ 
ren Experimentieren sein. Man kann statt der Tonfrequenz 
zum Beispiel auch einmal versuchen, die Pulsweite oder 
die Filterfrequenz zu modulieren. Tabelle 3 enthält einige 
Parameiersätze für dieses Programm. 

Ausblick: Programmierung von 
Musncstücken 


Dieses Thema wollen wir hier nur einmal streifen. Grundla¬ 
ge hierfür ist die genaue Kenntnis der Tonleiterfrequenzen. 
Diese müssen aber nicht mühsam aus Tabellen abgetippt, 
sondern können durch ein kleines Programm selbst be¬ 
rechnetwerden. Man muß dazu ein klein wenig Mathematik 
betreiben: 

1) Die Frequenzen zweier Töne im Oktavabstand verhalten 
sich wie 2:1. 

2) Eine Oktave ist durch die Halbtöne in zwölf gleiche Inter¬ 
valle eingeteilt und zwar nicht linear, sondern exponen¬ 
tiell. 

3) Das Frequenzverhäitnis H zweier aufeinanderfolgender 
Halbtöne ist die zwölfte Wurzel aus zwei. In Basic läßt 
sich das leicht ausrechnen: 

H = 2^^^ 

4) Man bekommt dann alle Halbtöne, Indem man die Fre¬ 
quenzen, ausgehend von einem Grundwert, fortlau¬ 
fend mit H multipliziert. 


Im Programm aus Listing 4 macht das eine Schleife in 
Zeile 140 bis 190. Die Variable FAUS wird mit 110 vorbe¬ 
setzt. Das entspricht einem »großen A«, dem Ton, der zwei 
Oktaven unter dem Kammerton, dem bekannten »eingestri¬ 
chenen a« mit 440 Hz, liegt. In Zeile 170 wird FAUS in den 
dazugehörenden SID-Wert F umgerechnet. F wird in High- 
und Low-Byte zerlegt, welche in den Feldern FH und FL ge¬ 
speichert werden. Dort stehen die Töne als fertige POKE- 
Werte zum Spielen einer Melodie zur Verfügung. 

Das restliche Programm erzeugt aus diesen Werten eine 
mehr oder weniger zufällige Tonfolge auf dem SID. Ein we¬ 
nig wird der Zufall aber durch die Werte in den DATA-Zeilen 
ab Zeile 500 gesteuert. Diese Werte stellen sin Blues- 
Schema in codierter Form dar. Das Schema selbst steht in 
den letzten drei Zeilen. Das Programm holt sich ausdiesem 
Schemadie erste Zahl. Diese zeigt auf eine der sieben Aus¬ 
wahlmengen in den vorausgehenden Zeilen. Die Auswahl¬ 
mengen enthalten Tonnummern. Das Programm spielt nun 
nacheinander acht zufällig ausgewählte Töne aus dieser 
Meh^-'bnwiederholungen sind dabei möglich. Anschlie¬ 
ßend geht das Programm über den nächsten Zeiger aus 
dem Schema zu einer neuen Auswahlmenge über. Die links 
etwas abgesetzten Zahlen dienen dabei nur zur Längenan¬ 
gabe der Auswahlmengen und des Schemas. 

Mit dieser einfachen Technik wird der Blues-Charakter 
deutlich hörbar. (Thomas Krätzig/rs/kn) 


lee REM- 

<146> 

na REM EINFACHE KLANBEFFEKTE 

<107> 

12a REM- 

130 S-S4272 

<166> 

<ise> 

140 READ A,D.SU.R,C,P,F,M,FF,FR,ML 

<1B7> 

150 PQKE S+3 ,16*A +D 

<174> 

160 PCKE S+6 ,16<SU+R 

<e37> 

170 POKE 8+2 ,P AND 235 

<ee5> 

lea POKE S+3 ,P/256 

<133> 

190 HI-INT!F/256>;LC«F-236*HI 

<142> 

200 POKE S ,LO 

<222> 

210 POKE 8+1 ,H1 

<01B> 

220 POKE S+22,FF 

<036> 

230 POKE S+23,FR 

<154> 

240 POKE 6+24,ML 

<224> 

250 BET A«tIF A«>“" THEN 250 

<22e> 

260 1 POKE S+4,C OR 1 

<191> 

270 1 FOR 1*1 TO M:NEXT I 

<161> 

2B0 1 POKE B+4,C AND 2S4 

<193> 

290 GOTO 250 

<052> 

300 REM- 

<092> 

310 REM PARAMETER 

<224> 

320 DATA 0 ,10, 0,10:REM A D 8 R 

<16S> 

330 DATA 16 sREM CONTROL-BVTE 

<222> 

340 DATA 204B :REM PULSWEITE 

<129> 

350 DATA 40000 iREM FREQUENZ 

<1B3> 

360 DATA 100 iREH VERZOEBERUNG 

<216> 

370 DATA 50 iREM FILTERFREQUENZ 

<a33> 

3B0 DATA 0 sREM FiLtERRESONANZ 

<14B> 

390 DATA 15 sREM MODUS/LAUT 

<209> 

Listing 1. Einfache Klangeffekte. Hinweise zum Text. 
Programm bitte mit dem Checksummer (Seite 158) 

eingeben. 
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100 




<146> 




110 

REM KLANBEFFEKTE MIT 


<098> 

120 

REM DYNAMISCHER 

FREQUENZSTEUERUNG 

< 2 ia> 

130 

REM- 



<176> 

140 

3-54272 



<1607 

150 

READ A,D,6U,R,C 

P.P.G 

,N,M 

<206> 

160 

POKE S+5 ,16*A +D 


<ia4> 

170 

POKE 3+6 ,16*BU+R 


<047> 

180 

POKE S+2 ,P AND 

255 


<095> 

190 

POKE S+3 ,P/256 



<143> 

200 

POKE S+23,0 

tREM 

FR 

<203> 

210 

POKE B+24,15 

iREM 

ML 

<057> 

220 

6ET A»:IF A*-"" 

THEN 

220 

<253> 

230 

FOR I-l TO M 



<eB6> 

240 

s Fl-F 



<004> 

250 

1 POKE S+4,C OR 

1 


<179> 

260 

t FOR J-1 TO N 



<224> 

270 

t POKE S,F1 AND 255 

<039> 

2B0 

: POKE S+1,Fl/256 


<17B> 

290 

1 Fl-F1*Q 



<010> 

300 

1 NEXT J 



<206> 

310 

1 POKE B+4,C 



<204> 

320 

NEXT I 



<150> 

330 

GOTO 220 



<044> 

<192> 

<068> 

410 

REM PARAMETER 



420 

DATA 0 ,10, 0,lOtREM 

A D SU R 

<0SB> 

430 

DATA 16 

iREM 

CONTROL-BYTE C 

<092> 

440 

DATA 2048 

tREM 

PULSWEITE P 

<03S> 

450 

DATA 16000 

:REM 

FREQUENZ F 

<124> 

460 

DATA 1.33 

tREM 

FAKTOR G 

<117> 

470 

DATA 2 

tREM 

ANZAHL N 

<197> 

480 

DATA 25 

tREM 

ANZAHL M 

<084> 

Listing 2. Klangeffekte mit Frequenzsteuerung 



100 



<1465 

REh 


110 

REM KLANGEFFEKTE MIT 


<0985 

120 

REM DYNAMISCHER STEUERUNG 

<1395 

125 

130 

140 

REM DURCH STIMME 3 


<0665 

<1765 

( 

Kun 

S-54272 


150 

READ A,D,SU,R,C,P,F,G 

.N,M 

<2065 

160 

POKE S+5 ,16*A +D 


<1845 

170 

POKE S+6 ,16*SU+R 


<0475 

180 

POKE S+2 ,P AND 255 


<0955 

190 

POKE S+3 ,P/256 


<1435 

200 

POKE S+2S,0 tREM 

FR 

<2035 

210 

POKE S+24,12B+15tREM 

ML (83 AUS) 

<0865 

220 

READ A3,D3,S3,R3,C3,P3,F3,0 

<1905 

230 

HI-INT(F3/256)ILO-FS- 

256*HI 

<2015 

240 

POKE S+14,L0 


<1975 

250 

POKE 8+15,HI 


<2555 

260 

POKE 5+16,P3 AND 255 


<1115 

270 

POKE 3+17,P3/256 


<2095 

280 

POKE S+19,16*A3+D3 


<2095 

290 

POKE S+20,16*S3+R3 


<2045 

300 

D-S+Q 


<2305 

310 

F-F/Z56 


<0*?1 > 

320 

BET A*IIF A»-'”' THEN 

320 

<131> 

330 

FOR I-l TO M 


<1885 

340 

t POKE S+4 ,C OR 1 


<0155 

350 

1 POKE 8+lB,C3 OR 1 


<0125 

360 

t FOR J-1 TO N 


<0685 

370 

t POKE 8+1,F*<1+PEEK10)/B> 

<1065 

3B0 

1 NEXT J 


<0305 

390 

400 

410 

420 

500 

510 

1 POKE 8+4 ,C 

1 POKE S+ie,C3 

NEXT I 

GOTO 320 


<0285 

<1665 

<2405 

<1425 

<0365 

<2505 

REM PARAMETER STIMME 

1 

520 

DATA 0 , 8, 0, BtREM 

A D SU R 

<2435 

530 

DATA 32 !REM 

CONTROL-BYTE C 

<1465 

540 

DATA 2048 t REM 

PULSMEITE P 

<1405 

550 

DATA 40000 t REM 

FREQUENZ F 

<1S4> 

560 

DATA 500 1 REM 

FAKTOR G 

<2395 

570 

DATA 8 iREM 

ANZAHL N 

<0915 

580 

DATA 10 tREM 

ANZAHL M 

<0985 

600 

REM PARAMETER STIMME 

3 

<0945 

610 

DATA 0, 8, 0, OtREM 

A3 DS S3 R3 

<1445 

620 

DATA 16 tREM 

CONTROL C3 

<2335 

630 

DATA 204B sREM 

PULSUEITE P3 

<127> 

640 

DATA 10 tREM 

FREQUENZ F3 

<0635 

650 

DATA 28 t REM 

MOD.-QUELLE Q 

<2015 

Listing 3. Klangeffekte mit Steuerung durch Stimme 3 


10 REM- <161> 

20 REM ZUFALLSTONFDLSE <234> 

30 REM MIT BLUES-SCHEMA <079> 

40 REM <102> 

50 REM AUSNUETZUNG ALLER DREI STIMMEN <099> 

60 REM ZUR KLANQVERBESSERUNQ <238> 

70 REM <132> 

80 REM T. KRAETZIG MAERZ B6 <245> 

90 REM- <241> 

100 DIM FL(2S) tREM ARRA<r F. FREQUENZEN <05e> 

101 DIM FH(25) <137> 

102 DIM A(8,20)iREM AUSMAHLMENGEN <164> 

104 DIM S(30) iREM SCHEMA <131> 

110 S -54272 iREM BASISADRESSE <235> 

130 : <iBä> 

140 REM TONLEITER-FREQUENZEN BERECHNEN <166> 

ISO FAU5»lI0iH-2t(l/12) <B26> 

160 FQR 1-0 TO 25 <1S2> 

170 > F-INT<FAUS«17.0284+0.5) <123> 

172 I FH<I>-INT{F/256) <213> 

174 i FL<I)-F-256*FH(I) <097> 

160 I FAU6-FAUS*H <067> 

190 NEXT 1 <018> 

200 i <176> 

210 REM PARAMETER FESTLEGEN <133> 

220 PW-2048 :REM PULSMEITE <137> 

230 C -32 :REM KURVENFGRM <135> 

240 A-0:D-10tSU-0tR-9 <192> 

250 FÜR 1=0 TO 14 STEP 7 <159> 

255 i POKE 8+1+2,PW AND 255 <12B> 

260 : POKE S+I+3,PM/2S6 <233> 

265 s POKE S+I+S,16»A+D <160> 

270 : POKE S+I+6,16*SU+R <024> 

275 NEXT I <105> 

280 : <002> 

290 REM FILTER AUS UND LAUTSTAERKE MAX. <1S5> 
300 POKE S+23,0:POKE S+24,15 <066> 

310 : <032> 

320 REM AUSM.MENGEN UND SCHEMA EINLESEN <240> 
325 READ I:A(0,0)=I <245> 

330 FÜR K-1 TD I <202> 

335 : READ JsA(K,0)=J <228> 

FOR L=1 TO JsREAD A(K,L>:NEXT L <013> 

'350 NEXT K <196> 

355 READ IsS(0)=l <175> 

360 FQR K=l TO I <232> 

365 : READ B<K) <031> 

370 NEXT K <216> 

375 : <097> 

380 REM ZUFALLSTONFOLGE <0B4> 

385 L=0:O=B <239> 

390 FOR I-l TO 8(0) <039> 

395 s J=S(I) <051> 

400 : N=A<3,0) <1SB> 

405 : FOR K-t TO 8 <107> 

410 : ZZ-A(J,1NT(RND(1)CN+1)) <064> 

412 1 POKE 8+L ,FL<ZZ+0) <166> 

414 ! POKE S+L+1,FH(ZZ+D) <115> 

416 « POKE S+L+4,C QR 1 <10S> 

4Ze > FQR P-1 TO 401NEXT <B3S> 

425 1 POKE S+L+4,C <21B> 

430 « FOR P-l TO AOsNEX'T <045> 

435 I L»L*7lIF L-21 THEN L=0 <121> 

440 : NEXT K <106> 

445 NEXT I <019> 

450 0-0+1iIF 0-4 THEN 0-0 <003> 

455 FOR P-l TO 1150sNEXT <ie3> 

460 GOTO 390 <03B> 

500 REM- <036> 

510 REM AUSWAHLMENGEN UND SCHEMA <0167 

520 REM- <050> 

530 DATA 7 <221> 

540 DATA 8, 0,4,7,10,12,16,19,22 <243> 

550 DATA 8, 0,3,5,9, 12,15,17,21 <23B> 

560 DATA 7, 2,5,7,11,14,17,19 <126> 

570 DATA 6, 0,0,4, 7, 7,10 <096> 

560 DATA 4, 0,3,5,9 <114> 

590 DATA 5, 2,5,7,7,11 <237> 

610 DATA 2, 0,7 <115> 

620 1 <0Be> 

630 DATA 24, 7,1,2,1,3,2,1,3 <210> 

640 DATA 4,4,5, 4, 6,5,4,6 <05a> 

650 DATA 7,1,2,1,3,2,1,3 <117> 


LIstIng 4. Programm zum Errechnen einer Zufalls- 
Blues-Musik. Bitte alle Listings mit dem Checksummer 
(Seite 158) eingeben. 
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Grundlagen der Slring-Vemrbehung 


D urch die geschickte Nutzung von Strings und Varia¬ 
blen ergeben sich in Basic vielfältige Qestaltungs- 
mögiichkeiten. Viele scheuen jedoch dieses Gebiet 
der Programmierung. Unser Kurs schafft hier Abhiife. 

Wir werden uns intensiv mit der Behandlung von Strings, 
also Buchstaben und Zeichenketten, beschäftigen. Ob- 
wohi wir dabei in kleinen Schritten und mit vieien prakti¬ 
schen Beispieien Vorgehen, soliten Sie einige Baslc-Grund- 
kenntnisse mitbringen. Für absoiute Neulinge empfehlen 
wir daher unseren Basic-Grundkurs aus dem Sonderheft 
40. 

Unser String-Kurs ist in sieben Teile gegliedert. Im ersten 
Abschnitt werden wir zunächst die Grundlagen der Strings 
besprechen. Sie lernen darin neun Basic-Befehle und sie¬ 
ben numerische Funktionen zur Verarbeitung von Strings 
kennen. 

Teil 2 befaßt sich mit Texteingabe und Textverarbeitung 
von Strings. Weitere Themen sind das Formatieren von Text 
und Zahlen (Teil 3), das Erzeugen von Laufschriften (Teil 4), 
das Sortieren von Zeichen und Wörtern (Teil 5), Suchver¬ 
fahren mit Hilfe von Stringoperationen (Teil 6) und 
letztlich die Gestaltung von Benutzermenüs, Ta¬ 
bellen und (Highscore-)Listen (Teil 7). Alle 
Teile des Kurses bauen dabei kontinuierlich 
aufeinander auf. Die Kenntnisse, die Sie 
mit unserem Kurs erwerben, verset¬ 
zen Sie in die Lage, Ihre eigenen Ba- 
sic-Programme effektiver zu ent¬ 
wickeln. In vielen Fällen reicht 
Basic aus, um sinnvolle An¬ 
wendungen zu Program¬ 
mieren. Eine Zusammen¬ 
stellung der verschie¬ 
denen Teile finden 
Sie in einer 
Kursübersicht 
auf Seite 
52. 


Im Prinzip ist der Heimcomputer ein überdimensionaler Ta¬ 
schenrechner. Das Wort »Computer« bedeutet auch nichts 
anderes als »Rechner«. Es sind jedoch nicht nur Bild¬ 
schirm. Floppystation oder Tastatur, die den Unterschied 
machen. Entscheidend ist die Fähigkeit des Heimcompu¬ 
ters, neben Zahlen auch Buchstaben, Texte, Zeichen und 
Grafiken verarbeiten zu können. 

Bereits der Befehl PRINT gibt dem Einsteiger die Mög¬ 
lichkeit, Überschriften und Texte In seine Programme ein¬ 
zubauen. Doch Basic bietet mehr, Texte können innerhalb 
eines Programmablaufes miteinander verglichen, verän¬ 
dert, bewegt oder sonstwie manipuliert werden. Und das al¬ 
les mit Strings. Schon wieder so ein Fachwort? Nicht direkt. 
Das Wort »String« stammt aus dem Englischen und bedeu¬ 
tet soviel wie Kette, Schnur oder Reihe. Man kann sich vor- 
stellen, daß man viele Buchstaben und Zeichen auf einer 
Schnur oder, wie einzelne Glieder, zu einer Kette zusam¬ 
menfaßt. Diese Kette ergibt dann ein Wort oder eine be¬ 
stimmte Zeichenkombination, wie in Bild 1 veranschaulicht 
wird. Solch eine Zeichenkette ist nichts anderes als ein 
String. 

Da Strings für den Basic-Programmierer ein unverzicht¬ 
bares Werkzeug sind, haben wir uns vorgenommen, in sie¬ 
ben Lektionen die verschiedenen Anwendungsmöglichkei¬ 
ten zu beschreiben. Die Stringbefehle sind bei allen Com- 
^modore-Computern praktisch gleich. Diese Serie gilt 
demnach für die Commodore-Computer C64, 
C128. C16/116, Plus/4 und den betagten 
VC 20. Eventuelle feine Unterschiede 
werden natürlich einzeln behandelt. 
In einem Programm ist es sehr 
nützlich, daß der Computer sich 
bestimmte Zahlen oder Strings 
merken kann. »Merken« 
bedeutet, er kann sie 
im Speicher fest- 
halten und je 







derzeit dort wieder herausholen, vorausgesetzt der Pro¬ 
grammierer kennt ihre Namen. Es ist nämlich nicht ohne 
weiteres möglich, dem Computer zu befehlen: Merke dir 
die Zahl 7 oder das Wort »Commodore«. Mit dem Begriff 
»Variable« werden Namen bezeichnet, unter denen sich der 
Computer Zahlenwerte oder Strings merkt. Das können wir 
gleich ausprobieren. Geben Sie direkt ein: 

X=215:Y=0.34 <RETURN> 

Sie haben nun einer Variablen mit dem Namen X den 
Wert ZtSzugewiesen, einer anderen mit dem Namen Y den 
Wert 0.34. Diese Werte können jederzeit aus dem Spei¬ 
cher geholt und auf den Bildschirm gebracht werden. 
Geben Sie wieder direkt über die Tastatur ein: 

PRINT XiPRINTY <RETURN> 

Versuchen Sie dieses einmal mit Strings, 
zum Beispiel: 

A=NAME <RETURN> 

Bereits hier zeigt der Computer 
die Fehlermeldung 7SYNTAX 
ERROR. Strings besitzen eine 
Besonderheit. Sie müssen 
immer zwischen Anfüh¬ 
rungszeichen (Gänse¬ 
füßchen) stehen. 

Der Computer 
erkennt so, 





wo ein String 
anfängt und auf¬ 
hört. Fehlen die An¬ 
führungszeichen, weiß 
er nichts mit der Varia¬ 
blen anzufangen. Versuchen 
Sie es noch einmal: 

A="NAME" <RETURN> 

Der Computer meldet ?TYPE MIS- 
MATCH ERROR. Offensichtlich haben 
wir noch etwas falsch gemacht, Basic 
kennt zwei Arten von Variablen, numerische 
Variablen, denen wir Zahlenwerte zuordnen, 
und String-Variablen, die für Strings gebraucht 
werden. Eine String-Variable wird mit dem Dollar¬ 
zeichen ($) gekennzeichnet. Es befindet sich über der 
Taste <4> auf der Tastatur. Bild 2 veranschaulicht, was 
zu wem paßt, oder nicht. Nun können wir es nochmals 
versuchen: 

ASr'NAME" <RETURN> 

(Der Computer meldet READY.) 

PRINT A$ <RETURN> 

Eine Besonderheit ist noch zu beachten. Geben Sie ein: 
SPRINT|="NAME" <RETURN> 

Schon wieder 7SYNTAX ERROR. Es ist aber doch alles 
richtig eingegeben, oder? Nicht ganz. Unsere Variable 
SPRINTS enthält den Basic-Befehl PRINT. Das »S« davor 
wird als falsche Schreibweise angesehen und führt zu ei¬ 
ner Fehlermeldung. Basic-Befehle dürfen also nicht in 
Variablen-Namen enthalten sein. Versuchen Sie es ruhig 
einmal mit den Variablen CONTAINERS, DEFEKTS, DIM¬ 
MERS, ENDES, STIFTS oder LISTES. Sie werden immer 
dasselbe Ergebnis erhalten. Es ist ratsam, auf »schöne« 
Variablen-Namen zu verzichten, statt dessen eine Kombi¬ 
nation eines Buchstaben mit einer Zahl zu wählen, zum 
Beispiel A3S oder ZZ$. Voraussetzung ist, der Variablenna¬ 
me beginnt mit einem Buchstaben. 3A$ ist keine zulässige 
Variable. 

Strings wären relativ nutzlos, könnte man sie lediglich ir¬ 
gendwo speichern und wieder aufrufen. Basic stellt neun 
Befehle und sieben numerische Funktionen bereit, die 
Strings verändern, verschieben, erweitern und manipulie¬ 
ren. Die einfachste Manipulation ist die Addition von 
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Strings über den PRINT-Befehl, Geben Sie das kleine Li- 
sting 1 ein und starten Sie es mit RUN < RETURN >. 

In den Zeilen 110 und 115 weisen wir den Variablen A$ 
und B$ die Strings "HOLZ" und "FEUER" zu. In Zeile 120 
lassen wir den Computer einlach beide Strings nebenein¬ 
anderschreiben, so daß das Wort »HOLZFEUER« entsteht. 
Es ist egal, ob zwischen A$ und B$ ein Semikolon, ein Zwi¬ 
schenraum oder nichts steht. Dem neuen Wort »HOLZ¬ 
FEUER« können wir auch eine neue Variable C$ zuordnen. 

Wir addieren Strings 


Erweitern Sie Listing 1 mit folgenden Programmzeilen und 
starten es wieder mit RUN. 

125 C$=A$+B$ 

130 PRINT CS 

Eserscheint zweimal »HOLZFEUER«, in Zeile 125 haben 
wir festgelegt, daß die Variable C$ eine zusammengesetzte 
Zeichenkette aus den bekannten Strings A$ und B$ sein 
soll. Das neue Wort bleibt so auch später verfügbar. Geben 
Sie direkt ein: 

PRINT C$ <RETURN> 

Nicht ganz so selbstverständlich ist die Addition von 
Strings, die aus Zahlen bestehen. Geben Sie Listing 2 ein, 
starten Sie es mit RUN <RETURN>. 


Nummer 

Inhalt 

Seite 

1 

Grundlagen der String-Verarbeitung 

50 

2 

Texteingabe und Textverarbeitung 

56 

3 

Formatieren von Texten und Zahlen 

63 

4 

Laufschritt und Farbensplele 

67 

5 

Spielereien mit Wörtern und Texten 


6 

Suchverfahren. Wörterraten 

75 

7 

Menüs, Tabellen, Listen 

79 



Der Inhalt des Kurses im Überblick 

Zeile 130 druckt die Zahl 75 aus. Bemerkenswert ist da¬ 
bei, daß die Ziffern ohne den sonst üblichen freien Platz für 


die Prüfung auf Ungleichheit erfüllt, und das Programm 
kehrt zu einer neuen Eingabe {Zelle 110) zurück. 

Programmtechnisch ist es sehr empfehlenswert, in einer 
vergleichenden INPUT-Schleife immer eine Aussprung¬ 
möglichkeit wie in Zeile 130 zu schaffen. Es ist schließlich 
denkbar, daß ohne Vorkennlnisse das Wort FLOPPY nicht 
erraten wird. Und dann? 

Addierte Strings können natürlich ebenfalls auf Gleich¬ 
heitoder Ungleichheit geprüft werden. Fügen Sie bitte dem 
Listing 5 folgende Zeile hinzu; 

125 IF X$=A$+"1541" THEN PRINT XS 

Diese Prüfung ist erst erfüllt, wenn die Eingabe FLOPPY 
1541 lautet, mit Leerzeichen dazwischen. 

Beim Stringvergleich mit dem Größer-als- (>) oder Klei- 
ner-als-Zeichen (<) muß der Programmierer wissen, was 
einen größeren oder kleineren String ausmacht. In Listing 
6 werden Strings miteinander verglichen. Anschließend 
gibt das Programm aus, welcher String größer ist. Experi- 
''meritBn.M Sie ein bißchen. Beachten Sie dazu Tabelle 1. 

Sehen Sie den Zusammenhang? Der Computer ver¬ 
gleicht die ASCII-Codewerte der einzelnen Buchstaben 
von links aus. ASCIl-Codes sind Zahlen, mit denen der 
Computer intern ein Zeichen kennzeichnet. Dazu später 
mehr. Das A hat den ASCII-Wert 65, B den Wert 66, C den 
Wert 67. Sowohl bei ACB als auch bei ABC ist das erste Zei- 


ein eventuelles negatives Vorzeichen gedruckt werden. Ei¬ 
ne Eigenschaft, die wir uns später noch zunutze machen 
werden. 

Einen schönen Effekt erhält man durch Darstellung von 
Steuerzeichen wie »CURSOR-LINKS« oder »REVERS-ON« 
als Strings. Geben Sie Listing 3 ein und starten es mit RUN. 
Zeile 140 druckt das Wort -FEUERHOLZ« aus, wobei der 
Wortteil »FEUER« in reverser Darstellung erscheint. 

Auch die Grafikzeichen, auf die mit der < SHIFT>- oder 
<COMMODORE>-Taste umgeschaltet werden, können 
als Strings addiert werden (Listing 4). Durch Variablen, die 
aus Zeichen und Cursorbewegungen bestehen, können 
Grafikzeichen definiert und über den Bildschirm bewegt 
werden. Ändern Sie Zeile 140 in; 

140 PRINT U$;:GOT0 140 

Achten Sie bitte auf das Semikolon vor dem Doppel¬ 
punkt. In einer ewigen Schleife wird nun das Rechteck dia¬ 
gonal über den Bildschirm gedruckt. Versuchen Sie es ru¬ 
hig selbst einmal, verändern Sie die Variablen Q$, R$. S$. 
oder T$. Mal sehen, was passiert! 

Der Vergleich zweier Strings kommt sehr oft vor. Listing 
5 zeigt das Prinzip. In Zeile 100 weisen wir der Variablen A$ 
den String "FLOPPY" zu. Zeile 110 erwartet die Eingabe 
eines neuen Strings, dem die Variable X$ zugewiesen wird. 
DerVergleich folgt in Zeile 120. Erst wenn beide Strings Zei¬ 
chen für Zeichen identisch sind, wird das Wort »TREFFER« 
auf dem Bildschirm ausgegeben. In Zeile 130 erfolgt eben¬ 
fallsein Vergleich, nur anders herum. Solange der eingege¬ 
bene String nicht aus dem einzelnen Zeichen @ besteht, ist 


Chen gleich, aber von den zweiten Zeichen ist C größer als 
B. Im Beispiel TISCHE-TISCH macht das zusätzliche E im 
String #1 den Unterschied. Tabelle 2 ist eine vollständige 
Auflistung der ASCIl-Codes, die Sie zum Vergleich heran¬ 
ziehen können. 

Subtrahieren von Strings mit dem Minuszeichen geht lei¬ 
der nicht. Basic bietet uns jedoch drei Befehle, die uns ge¬ 
statten, einzelne Zeichen eines Strings abzuschneiden be¬ 
ziehungsweise herauszupicken. LEFTS schneidet vom lin¬ 
ken Rand des Strings Zeichen heraus, RIGHT? macht das¬ 
selbe auf der rechten Seite, MID$ pickt Teile aus der Mitte 



Bild 1. Wie ein Namenskettchen werden Zeichen und 
Buchstaben zwischen Gänsefüßchen zu Strings 
zusammengefaßt 
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KURSE 


Strlng#1 

String#2 

Wer ist größer? 

A 

B 

B 

ACB 

ABC 

ACB 

TISCHE 

TISCH 

TISCHE 

21 

26 

26 

DDD 

DDD 

ohne Wirkung 

WORT 2 

WORT 1 

WORT 2 


Tabelle 1. Strings besitzen Codewerte, anhand derer sie sich 
In Ihrer Größe beziehungsweise Wertigkeit unterscheiden 
lassen. Hier sehen Sie einige Beispiele. 

heraus. Zusätzlich - aber nur bei C16/116, Plus/4 und C128 
- fügt er auch Teile in die Mitte eines Strings ein. 

Natürlich können wir bestimmen, wie viele Zeichen ab¬ 
getrennt werden sollen, LEFTS und RIGHTS benötigen nur 
eine einzige, MID$ zwei Zahlenangaben. Im Beispiel (Li- 
sting 7) wird das schnell klar, in Zeile 20 beginnen wir an der 
linken Seite des Wortes. Hinter LEFTS steht in der Klammer 
zuerst der String, um den es geht. In diesem Fall ist es A$. 
Die Zahlenangabe nach dem Komma bestimmt die Anzahl 
der abzuschneidenden Zeichen. Im Beispiel sind es fünf. 

Welcher String ist größer? 


Diese fünf ergeben den neuen String »MOTOR«, der in Zei¬ 
le 30 ausgedruckt wird. Schreibweise und Funktion von 
RIGHT$ ist identisch, nur daß dieser Befehl von der rechten 
Seite des Wortes A$ aus wiritt. In Zeile 40 erhält dieser Teil¬ 
string den Variablennamen C?. Zeile 70 druckt die rechten 
sieben Zeichen von A$ aus. Ergebnis ist das Wort 
»SCHLUSS«. Interessant wircjes in Zeile 60 beim Befehl 
MID$. Der Angabe des betroffenen Strings folgt die Numr. 
mer des Zeichens, ab dem, von links gezählt, herausge- 



Bild 2. Den Variablen müssen die richtigen Werte zugewie¬ 
sen werden. Sonst kommt es zu einer Fehlermeldung. 

schnipselt werden soll. Die zweite Zahl gibt an, wieviel Zei¬ 
chen es sein sollen. In unserem Beispiel ist das sechste 
Zeichen von links das »H«. Fünf Zeichen weiter, inklusive H, 
ergeben das Wort »HAUBE«. In Zeile 70 wird es ausge¬ 
druckt. 

Bild 3 zeigt die Funktionen der drei Befehle auf einen 
Blick. 

Die Frage stellt sich, ob wir mit diesem Befehl zwei ge¬ 
trennte Teile aus einem Wort herausholen, und sie so zu¬ 
sammensetzen können, daß ein neues Wort entsteht. Wir 
können! Als Beispiel benutzen wir das Wort »DRACHEN«, 
aus dem das Wort »RAHE« entstehen soll. Wir picken ledig¬ 
lich die Teile »RA« und »HE« heraus und addieren sie zu ei¬ 
nem neuen String. Listing 8 zeigt, wie es geht. 


100 A*="HOLZ'' 

<0SS> 

110 B*="FEUER" 

<U5> 

120 PRINT AS B« 

<123> 

Listing 1. Die Addition Ist die einfachste Manipulation 

von Strings. Subtrahieren Ist unmöglich. 



100 X»-"?" <05l> 
110 Y*“"S" <193> 
120 Z**X*+Y* <055> 
130 PRINT 2$ <252> 


LIstIng 2. Die Addition von Strings. Die Zahlen sind 
nicht selbstverständlich. 


100 

A*-"HOLZ" 

< 0 se> 

110 

B*»"FEUER’' 

<11S> 

120 

L*-"lRVSON}" 

<206> 

130 

M*-"<RVOFF>" 

<2S2> 

140 

PRINT L»+B»+M»+A* 

<078> 


Listing 3. Steuerzeichen können als Strings darge¬ 
stellt werden. Man erhält einen schönen Effekt. 


Es ist nicht zwingend vorgeschrieben, daß die Zahlen in 
der Klammer hinter den String-Befehlen konstant sind. Ge¬ 
ben Sie Listing 9 ein und starten es mit RUN. Dieses Pro¬ 
gramm druckt das folgende Muster aus; 

D 

DR 

DRA 

DRAC 

DRACH 

DRACHE 

DRACHEN 

■•Liri^g^jjeheimnis liegt in den Zeilen 110 und 120, in denen 
die Zahl der abzuschneidenden Zeichen nicht konstant, 
sondern durch die Zählerschleife mit X von 1 bis 7 hochge¬ 
zählt wird. Selbstverständlich geht es mit RIGHTS auch an¬ 
dersrum. Listing 10 liefert uns dieses Bild: 

DRACHEN 

RACHEN 

ACHEN 

CHEN 

HEN 

EN 

N 

Die rückwärts zählende Schleife wird durch die Festle¬ 
gung des Anfangswertes In Zelle 110 und durch das 
laufende Vermindern der Zählvariablen in Zeile 130 gebil¬ 
det. Eine elegantere Lösung ermöglicht der MID$-6efehl. 
Kehren wir wieder zur hochzählenden Schleife zurück und 
zwicken von links der Reihe nach die Buchstaben heraus. 
Listing 11 realisiert unser Vorhaben. 

Wenn Sie die Zeile 120 so schreiben: 

120 B$=mD$(A$,X,l) 

wird das Wort mit einzelnen Buchstaben untereinander ge¬ 
schrieben. Eine andere Variante sieht so aus: 

120 B$=MID$(A$,1,X) 

Dieses Muster ist schon von Listing 9 her bekannt. Ein 
letztes Arrangement erhalten wir durch die Programmzeile 
120 B$=mD$(A$,X,X) 

Diese Variation der beiden Parameter ergibt nachstehen¬ 
des interessantes Muster; 

D 

RA 

ACH 

CHEN 

HEN 

EN 

N 
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Legen wir unser Augenmerk auf Zeile 140 des Listings 11. 
Dort befindet sich eine Zählschleife, die sich so lange wie¬ 
derholt, bis X den Wert 7 angenommen hat. Dieser Wert 
entspricht der Anzahl an Buchstaben in dem Wort DRA¬ 
CHEN. Wollen wir mit einem anderen Wort experimentie¬ 
ren, so muß der Variablen X ein anderer Wert zugeordnet 
werden. Beim Wort »MENSURALNOTATION« (eine im 13. 
Jahrhundert ausgebildete Notenschrift, die die Tondauer 

LEN$ - bequemes Abzählen 


angibt) bereitet das Zählen eine Menge Arbeit (es hat 16 
Buchstaben). Es Ist somit sinnvoll, einen Befehl zu gebrau¬ 
chen, der die Zählarbeit abnimmt. Basic wartet mit dem 
schönen Befehl LENS auf. Er ist eine Abkürzung des engli¬ 
schen Wortes »length«, das »Länge« bedeutet. Wenn Sie di¬ 
rekt eingeben 

PRINT LEN("MENSURALNOTATION') 
erhalten sie den Wert 16. Erhalten Sie einen anderen Wert, 
haben Sie sich verschrieben. Um diesen Befehl in unser 
letztes Programm einzubauen, ändern Sie Zeile 140 in: 
140 IF X<>LEN(A$) THEN 110 

Sie prüft X, bis es den Wert von LEN(A$) erreicht hat. 

Beim Größenvergleich von Strings haben wir gesehen, 
daß der Computer mit ASCI I-Codes arbeitet. Alle Computer 
verwenden intern irgendwelche Code-Zahlen, um Zeichen, 
Buchstaben und Zahlen im Rechenwerk, Speicher oder 
Peripherie darzustellen. Theoretisch kann jeder Hersteller 
diese Codes definieren, wie er will. Beim Datenaustausch 
mit anderen Computern oder mit einem Drucker müssen 
die Daten aber einem international standardisierten Code 
entsprechen. Dieser Standard heißt »American Standard 
for Information Interchange«, abgekürzt ASCII. Jedes Zei¬ 
chen, jede Zahl und jede Funktion hat darin einen eigenen 
Code-Wert. 



Strings und der ASCII-Code 


Es ist ein leichtes, ein Programm zu schreiben, das uns die 
Abfrage aller ASCII-Codes gestattet. Dabei hilft uns ein Be¬ 
fehl, der einen String - oder genauer gesagt ~ das erste Zei¬ 
chen eines Strings in den entsprechenden ASCII-Wert um¬ 
wandelt - ASC(A$). Listing 12 zeigt seine Wirkungsweise. 

Der Pfiff dieses Vierzeilers liegt im neuen Befehl ASC$ in 
Zeile 20. Er wandelt das eingegebene Zeichen in seinen 
ASCII-Wert um, der in Zeile 30 zusammen mit dem Zeichen 
ausgedruckt wird. Vorsicht! Geben Sie den ASCII-Code ei¬ 


10B Q*="S7£" 

<027> 

H0 R*="<3LEFT>‘' 

<093> 

120 8«=‘'{D0MN>'‘ 

<170> 

130 

<107> 

140 Uf^Qt-fRS+SS+TS 

<eei> 

150 PRINT U* 

<232> 

Listing 4. Grafikzeichen können zu Strings addiert 
und Uber den Bildschirm bewegt werden 


100 A**i"Fl.DPPY" 

<204> 

110 tNPUT "EINCABE"tX« 

<2501 

120 IF X»-A* THEN PRINT"TREFFER" 

< 0 Ba> 

130 !F X»<>"a"THEN 110 

<ia7> 

140 END 

<142> 

Listing 5. Eine Routine, die sehr oft vorkommt: 
der Vergleich zweier Strings 



100 INPUT "STRING Fl-'jA* 

<094> 

110 IF A»«"a" THEN END 

<0B<?> 

120 INPUT "STRING •(2"5B* 

<186> 

130 IF A*>B* THEN PRINT "#1" 

<166> 

140 IF A*<B* THEN PRINT "#2" 

•:000.' 

1S0 GOTG 100 

<07B> 

Listing 6, Strings unterscheiden sich In Ihrer Größe. 

Experimentieren Sie ein wenig. 



nes Steuerzeichens ein, wird dessen Funktion durch Zeile 
30 ausgeführt. 

Die Umkehrung des ASC-Befehls ist der CHR$(X)-Befehl 
(sprich: Character-String). Der Name ist die Abkürzung von 
Character, was soviel heißt wie »Zeichen«. Er wandelt die 
ASCII-ZahIXin ihr entsprechendes Zeichen um. In Verbin¬ 
dung mit dem PRINT-Befehl kann er Zeichen und Buchsta¬ 
ben auf den Bildschirm bringen: 

<RETURN> 

bewirkt dasselbe wie 
PRINT^A" <RETURN> 

Gerade eben wurde davor gewarnt, den ASCII-Code ei¬ 
nes Steuerzeichens einzugeben. Natürlich kann man die¬ 
ses gezielt ausnützen. Der Bildschirm kann zum Beispiel 
mit dem ASCII-Wert für die <CLR>-Taste gelöscht wer¬ 
den: 

PRINT CHR?(147) 

Vielleicht fragen Sie sich an dieser Stelle, was das soll. 
Nun, im Vergleich zur guten alten Gänsefuß-Methode bietet 

Verwandlung von Strings und Zahlen 


dieses Verfahren schon einige Vorteile. Die ASCII-Werte 
sind zum einen viel besser druck- und lesbar, zum anderen 
kann man mit Zahlen, auch mit ASCil-Werten, rechnen. Ge¬ 
ben Sie doch bitte einmal folgende Zeilen ein: 

10 X=64 
20 X»X+1 
30 PRINT CHR?(X) 

40 IF X<90 THEN 20 

In Zeile 10 geben wir der numerischen Variablen X den 
Wert 64, das ist um 1 weniger, als der ASCII-Wert des Buch¬ 
stabens A. 

InZeile 20 wird eine Zählschleife begonnen mit der Erhö¬ 
hung von X um 1. 

Zeile 30 druckt mit dem CHR$-Befehl das dieser Zahl 
entsprechende Zeichen aus. Im ersten Durchlauf ist X=65, 
das ist der ASCII-Wert für das A. 

Zeile 40 schließt die Zählschleife durch den Rücksprung 
auf Zeile 20. Dadurch werden alle Zeichen vom Wert 65 bis 
90 - das ist das Alphabet - ausgedruckt. 

Mit Buchstaben in Gänsefüßchen wäre das Programm 
recht lang geworden. Überzeugt? 
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Wir haben bereits gelernt, daß Zahlen als Strings, also als 
reine Ziffernfolge, verarbeitet werden können, wenn sie in 
Gänsefüßchen stehen. Der Vorteil dieser Methode: Zahlen 
werden ohne Freiraum für ein eventuelles Vorzeichen aus¬ 
gegeben. Das kleine Programm 
10 A$='’123'' 

20 FEINT A$ 

druckt die Zahl ganz an den linken Rand. Es gibt zwei Be¬ 
fehle, die uns erlauben, Strings in Zahlen und Zahlen in 
Strings umzuwandeln. VAL(A$) wandelt A$ in einen Zah¬ 
lenwert um, falls dort eine Zahl vorkommt. Die Zeile 
30 PRINT VAL(A$) 

druckt ebenfalls die Zahl 123 aus, aber eben als Zahl, das 
heißt mit einer Leerstelle vor ihr. Ist In dem String keine Zahl 
enthalten, wird der Wert Null ausgegeben: 

40 B$=''ABC'' 

50 PRINT VAL(B$) 

Schreiben wir statt "ABC" den String "A2C", erhalten 
wir Immer noch Null als Ergebnis, weil der String mit einem 


le A*-''MaTDRHftUBENVER5CHLUSS" 

<213> 

20 B*=LEFT* 

<197> 

30 PRINT B* 

<2I4i> 

40 C*=RIQHT» <fl*,7> 

<005> 

50 PRINT C* 

<244> 


<201> 

70 PRINT OS 

<016> 

LIstIng 7. Worte können geteilt und die einzeinen 
Teilstücke zu neuen Strings definiert werden 



X und Y sind aber Immer noch Zahlen, obwohl sie über 
STR$ als Strings behandelt werden. Erst die Zeile: 

60 PRINT "123";"456" 

macht echte Strings aus ihnen und vermeldet alle Zwi¬ 
schenräume. Leider kann man in dieser Version mit den 
Zahlen nicht mehr rechnen. MitSTR$ geht es aber, wie die 
nächsten Zeilen zeigen: 

65 FOR Z»0 TO 2 

70 PRINT STR$(X+Z);STR$(Y) 

75 NEXT Z 


100 AC>''DRACHEN" 

<109> 

110 X=7 

<215> 

120 B*-RI6HT$(A«,X) 

<Z14> 

130 PRINT B« 

<'060> 

140 X«X-l 

<200> 

1S0 IP X<>0 THEN 120 

<043> 

Listing 10 Ist eine Umkehrung von LIsting 9. 

Es besitzt eine rückwärtszählende Schleife. 



100 At°"DRACHEN" 

<109> 

110 X-X+1 

<130> 

120 B*=MID*<A*,X,B-X) 

<176> 

130 PRINT Bf 

<0b0> 

140 IF X.;>LEN(A*) THEN 110 

<li0> 

Listing 11. Eine elegante Lösung des Problems von 

Listing 10 ermöglicht der MIDS-Befehl 


100 A*=’'DRACHEN'' 

<i0'?> 

110 X*=+1IDS(A#,2,2} 

<0ii> 

120 Y*=M1D*(A*,5,2) 

<037> 

130 Z*=X»*Y# 


140 PRINT 2* 


Listing 8. Aus dem Wort »DRACHEN« 
Wort »RAHE« mit Hilfe von Strings 

machen wir das 


Wir erhalten die Zahlenreihen 

123 456 

124 456 

125 456 

" ' ?TR$ und VAL$ - wirklich nütziiih? 


100 A»="DRACHEN" 

<IB9. 

110 X=X+1 

<i3a> 

120 B«=LEFT«(AS,X) 

<182:. 

130 PRINT B« 

<060 > 

140 IF X<>7 THEN HO 

<224.- 

Listing 9. Die Zahlen hinter den String-Befehlen 
müssen nicht konstant sein. Ein interessantes 
Muster entsteht. 



Buchstaben anfängt. Ist B$jedoch "12C", ergibt der VAL$- 
Befehl die Zahl 12. Diese Eigenschaft läßt sich oft sinnvoll 
in einem Programm einsetzen. 

Die Umkehrung von VAL$ ist STR$(X), abgeleitet von 
String. Er wandelt die Zahl X In einen String um. Wozu das 
gut ist, zeigen uns die nächsten Zeilen: 

10 X=123 
20 Y=456 
30 PRINT X+Y 

Das Resultat Ist die Summe beider Zahlen, also 579, mit 
einer Leerstelle vor der neuen Ziffer ausgedruckt. 

Die Zelle: 

40 PRINT X;Y 

setzt dagegen beide Zahlen nebeneinander, getrennt durch 
zwei Leerstellen. Eine für das Vorzeichen, die zweite für die 
Trennung zweier unabhängiger Zahlen: 

123 456 

Diese zweite Trennung heben wir mit dem STR$-Befehl 
auf: 

50 PRINT STR$(X),STR$(Y) 

Wir erhalten: 

123 456 


Ein Zweifel an der Nützlichkeit dieser beiden Befehle 
scheint nicht unbegründet. Tatsächlich sind sie nicht so 
gängig, wie andere String-Befehle. Ein paar kleine Beispie¬ 
le sollen jedoch den Zweifel widerlegen. Mit dem LEN-Be- 
fehl haben wir schon die Länge eines Strings festgestellt. 
Mit Zahlen geht das normalerweise nicht. Versuchen Sie es 
ruhig einmal mit den Zeilen: 

10 A=1234 
20 PRINT A 

Wollen wir die Anzahl der Ziffern von A feststellen, und 
machen es so: 

30 PRINT LEN(A) 

werden wir Schiffbruch erleiden. Der Computer weist uns 
mit einem TYPE MISMATCH ERROR zurecht. Also muß zu¬ 
erst STR$ die Zahl In einen String umwandeln: 

30 PRINT LEN(STR$(A)) 

Als Resultat erhalten wir die Zahl 5. Warum 57 Nun, die 
Vorzeichenstelle wird mitgezählt. Wenn man das weiß, 
kann man sie ja vom Ergebnis abziehen. Für eine Darstel¬ 
lung auf dem Bildschirm ist das mitunter wichtig. 

Beim Schreiben von Tabellen und Zahlenkolonnen neh- 
meri die Vorzeichen-Leerstellen oft unnötig viel Platz weg. 
Ein Ärgernis für viele Programmierer. MitdemSTRS-Befehl 
kann dieser Platz abgezogen werden. Versuchen Sie mal, 
die Zahl 200 zwischen die beiden Striche zu schreiben, die 
mit der <SHIFT>-<B>-Taste erzeugt werden. 

100 PRINT "l"200"l" 
mit RUN erhalten wir: 

I 200 I 

Die Schreibweise In Zeile 100 erzeugt die Leerstellen. 
Die Zeile 110 löst das Problem: 

110 PRINT "rMID5(STR$(200),2)"l" 
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Sehen Sie den Trick? Mit STR$(200) bilden wir aus der 
Zahl 200 einen String " 200", also mit Leerstellen, Diesen 
String schreiben wir mit dem MID$*Befehl erst ab der zwei¬ 
ten Stelle zwischen die beiden Striche, ohne Leerstelle. In 
späteren Teilen dieses Kurses werden wir mit STR$ noch 
viel arbeiten. 

Wecker mit VAL$ 


Ein kleines »Weckerprogramm« stellt den VAL$-Befehl vor. 
Wir werden zehn Sekunden lang den Bildschirm mit Ster¬ 
nen füllen. Die eingebaute Uhr des Computers hilft uns da¬ 
bei. Sie kann über die Uhr-Variable Tl$ auf Null gesetzt wer¬ 
den. Geben Sie Listing 13 ein. 

Zeile 100 definiert die Laufzeit Z. In Zeile 110 setzen wir, 
wie im Commodore-Handbuch beschrieben, die Uhr auf 
die Zeit 00 Stunden 00 Minuten 00 Sekunden, mit der die 
Uhr sofort weiterläuft. Es werden über Zeile 120 so lange 
Sterne gedruckt, bis in Zeile 130 der Wert des Strings TIS 
mit Z=10 übereinstimmt. AnschlieBend wird abgebrochen, 
und die Nachricht der Zeile 140 ausgedruckt. Sie könnten 
auch statt dieser Nachricht eine Alarmglocke läuten las¬ 
sen. Das liegt bei Ihnen. 



Bild 3. Hier sehen Sie die drei Basic-Befehle, mit denen 
man Strings zerteiien kann, auf einen Blick 


Damit sind wir bereits am Ende unseres ersten Teils des 
String-Kurses angelangt. Außer INSTR, PRINT USING und 
PUDEF wurden alle wichtigen Befehle abgehandelt. Da sie 
aber einer ausführlichen Erklärung bedürfen und nur beim 
C128, C16/116 und PLUS/4 verkommen. Lassen wir diese 
Befehle in unserem Kurs unberücksichtigt. Bis zum weite¬ 
ren Teil wollen Sie vielleicht erst einmal eine kleine Pause 
einlegen. Spielen Sie ruhig mit Strings ein wenig rum, ver¬ 
wirklichen Sie eigene Ideen. 

fexteingabe und Textverarbeitung 
• mit Strings 


Jeder Einsteiger lernt sehr schnell, Überschriften und Text 
mildern Print-Befehl in seine Programme einzubauen. Daß 
Basic aber sehr viel mehr Möglichkeiten bietet, Texte und 
Zeichenketten (Strings) zu verarbeiten, wird klar, wenn man 
andere Programme sieht, in denen Strings verglichen, ver¬ 
ändert, bewegt oder auf andere Weise manipuliert werden, 
Auf Anhieb ist trotz Kenntnis der verwendeten Befehle nicht 
immer klar, was da passiert. Im ersten Teil haben wir bereits 
alle wesentlichen String-Befehle und String-Funktionen 
behandelt und mit kleinen Beispielen vorgeführt. Diesmal 
nehmen wir uns das Thema Texteingabe vor. 

In fast allen Programmen wird der Benutzer um Angaben 
zum Programmverlauf gebeten, die über die Tastatur ein¬ 
gegeben werden müssen. Oft sind es Zahlen, die gefragt 
sind, meistens aber sind es Texte oder einzelne Wörter. 
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Tabelle 2. ASCII-Code-Tabelle aller Zeichen 
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KURSE 


Dem Programmierer steht dafür der INPUT-Befehl zur 
Verfügung. Vorteilhaft ist, daß dieser Befehl einen Hinweis 
enthalten kann, was eingegeben werden soll. 

10 INPUT "TEXT^A? 

20 PRINT A$ 

Diese Eingabemethode funktioniert gut, hat aber ein 
paar Eigenheiten: 

- Komma und Doppelpunkt dürfen im einzugebenden Text 
nicht Vorkommen 

- ein Zeilensprung mit < RETURN > ist nicht möglich, da 
diese Taste den INPUT-Vorgang beendet 

- der Text, einschließlich Leerstellen, darf nicht länger als 
86 Zeichen sein 

- der Eingabevorgang kann nichtmit der STOP-Taste abge¬ 
brochen werden. 

Einige Beispiele: 

Starten Sie die Zeilen 10 und 20 mit RUN. Wenn Sie hin¬ 
ter dem blinkenden Fragezeichen eingeben: 

VfERTrZAHL 

oder 

WERT,ZAHL 

erscheint eine Fehlermeldung 
EXTRA IGNORED WERT 

Der Text ab dem Komma beziehungsweise ab dem Dop¬ 
pelpunkt wird unterschlagen. 

Die Eingabe: 

"WERT" IST 


che Schleife. Besitzer eines C16/116 und eines C128 
schreiben die Zeile 110 so: 

110 GETKEY A$ 

Jetzt können wir eingeben, was wir wollen: Komma, Zei¬ 
lensprünge mit < RETURN > und so weiter. Nachteilig ist, 
daß der ganze schöne geschriebene Text nicht gespeichert 
werden kann. Unter der Variablen A$ merkt sich der Com¬ 
puter immer nur das zuletzt eingegebene Zeichen. Wir 
müssen also die Zeichen in einer neuen String-Variablen 
zusammenbinden. 

Und wieder String-Addition 


Die String-Addition kommt uns zu Hilfe. Die »Sammelvaria- 
ble- für den Text soll T$ heißen. Sie setzt sich zusammen 
aus dem jeweiligen Text T$ plus dem mit GET neu eingege¬ 
benen Buchstaben oder Zeichen A$ (Zeile 130], GebenSie 
folgende Zeilen ein und starten sie mit RUN.. 

110 GET A$:IF A?»"" ' ■ 

THEN 110 
i20 PRINT A$; 

130 T$=T$+A$ . ■:. 

150 GOTO 110 

Irh ersten Durchlauf steht in T$ noch nichts, aber der erste 
eingegebene Wert für A$ wird durch den Rücksprung der 
Zeile 150 in T$ eingesetzt. So geht das munter weiter. 


führt zur Fehlermeldung REDO FROM START. 

Bei einer Eingabe: 

"DER WERT 

wird das Gänsefüßchen nicht geschrieben. 

Dagegen wird die folgende Eingabe akzeptiert: 

DER "WERT" IST. 

Sie sehen, man muß aufpassen. g 4 fr 

Will man diese Einschränkungen umgehen, verwendet 
man den GET-Befehl. Allerdings kann mit GET, wie Sie viel- 


le G£T A*="" THEN 

20 

30 PRINT A*,A 
40 GOTO 10 


10 


< 115> 
; 170'- 
-:i65> 
■'213' 


Listing 12 wandelt einen eingegebenen Buchstaben 
in seinen ASCII-Code um 



100 Z=10 

< 123> 

110 Ti*-"0e0000" 

<00'?> 

120 PRtNT 


130 IF VAL(TI»)<>Z THEN 120 

•-1B4.> 

140 PRINTiPRINT "10 BEKUNDEN" 

<190.- 

Listing 13. Ein kleines »Weckerprogramm» 
striert die Funktion des VA14-Befehls 

demon- 


leicht schon wissen, immer nur ein einziges Zeichen einge¬ 
geben werden. Der GET-Befehl benötigt jedoch nicht die 
Betätigung der RETURN-Taste, eignet sich also für unsere 
Zwecke wesentlich besser. 

Für die Eingabe eines längeren Strings muß eine Schlei¬ 
fe gebildet werden, die den GET-Befehl für jedes einzelne 
Zeichen des Strings aufruft. Oie folgenden drei Zeilen zei¬ 
gen dies: 

110 GET A$:IF A$*"" 

THEN 110 
120 PRINT A$; 

150 GOTO 110 

In Zeile 110 erwartetder Computer eine Eingabe über Ta¬ 
statur. GET A$ bewirkt ein ständiges Abfragen. Solange 
keine Eingabe erfolgt, bleibt das Programm in Zeile 110. 
Zeile 120 gibt das eingegebene Zeichen auf Bildschirm 
aus. Zeile 150 springt wieder zurück zu 110; eine unendli- 


Zeile 120 druckt den zuletzt getippten Buchstaben A$ 
aus. Das Semikolon sorgt dafür, daß alle Buchstaben in ei¬ 
ner Reihe stehen. 

Die einzige Beschränkung besteht darin, daß einer 
String-Variablen nur maximal 255 Zeichen zugeordnet wer¬ 
den dürfen, aber das ist schon eine ganze Menge. 

1. Die Texteingabe mit INPUT ist auf 88 Zeichen be¬ 
schränkt. Der Text darf kein Komma oder Doppelpunkt 
enthalten; bei Gänsefüßen ist Vorsicht geboten. Die RE¬ 
TURN-Taste schließt die Eingabe ab. 

2. DieTexteingabe mit einer GET-Schieife läßt alle Zeichen 
zu. Da mit GET aber immer nur ein einziges Zeichen ein- 
gebbar ist, muß ein längerer Text durch String-Addition 
zusammengesetzt werden. 

3. Der Inhalt einer String-Variablen kann maximal 255 Zei¬ 
chen betragen. 

Wie schon erwähnt, sind jetzt alle Tasten erlaubt, auch 
die Cursor-Tasten, ja sogar die RETURN-Taste, die einen 
Zeilensprung im Text auslöst. Da < RETURN > uns aber 
nicht, wie bei INPUT. als Zeichen der Beendigung der Ein¬ 
gabe zur Verfügung steht, kommenwir normal nicht aus der 
Schleife heraus, nur die STOP-Taste schafft es, was leider 
aber zum Abbruch des Programms führt. 

Wir brauchen eine andere Taste, mit der die Eingabe des 
Strings abgeschlossen werden soll. Sie darf natürlich im 
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normalen Text nicht Vorkommen. Zur Lösung dieses Pro¬ 
blems hilft uns dabei der ASC(A$)-Befehl. Er bestimmt den 
ASCII-Code eines eingegebenen Zeichens A$. Sie erin¬ 
nern sich bestimmt an meine Erklärung des ASCII-Codes 
im ersten Teil dieses Kurses; wenn nicht, dann bitte noch 
mal nachlesen. 

Eine nicht im Text vorkommende Tastenkombination ist 
zum Beispiel <SHIFT> und <RETURN> gleichzeitig 
gedrückt. Sie hat einen anderen ASCII-Code als die RE- 
TURN-Taste allein, nämlich 141. 

Mit dieser Tastenkombination wollen wir die Beendigung 
der Eingabe signalisieren. Wir prüfen sie in Zeile 140 nach, 
vor dem Rücksprung auf 
Zeile 110: 

140 IF ASC{A$)=l4l 
THEN 160 
150 GOTO 110 
160 PRINT CHR$(147) T2 

Ist die Eingabe beendet, 
wird in unserem Beispiel 
durch Zeile 160 der gesam¬ 
te aufaddierte Text aus¬ 
gedruckt. Zur besseren 
Übersicht erst, nachdem 
mit CHR$(147) der Bild¬ 
schirm gelöscht wurde. 

Das GOTO in Zeile 150 
können wir vermeiden, 
wenn wir diese Zeilen we¬ 
sentlich eleganter schrei¬ 
ben: 

140 IF ASC(A$) < > l4l 
THEN 110 

150 PRINT CHR$(147) T? 

160 entfällt. 

Zeile 140 verzweigt so 
lange zu Zeile 110, bis Sie 
<SHIFT> und <RE- 
TURN> gleichzeitig einge¬ 
ben. Anschließend führt sie 
zu Zeile 150. Die alte Zeile 150 wird überflüssig. Unsere alte 
Zeile 160 bekommt nun die Nummer 150. 

Wem die Beendigung der Eingabe mit der geSHIFTeten 
RETURN-Taste nicht gefällt, kann natürlich in Zeile 140 
auch andere Tasten abfragen. Es empfiehlt sich allerdings 
nicht, eine Taste oder Tastenkombination zu nehmen, die 
eine Steuerfunktion - zum Beispiel CURSOR-DOWN - 
ausführt. Es gibt eine ganze Reihe von Tastenkombinalio- 
nen, die einen eigenen ASCII-Codewert haben. Sie stehen 
allerdings nicht im Handbuch. Es sind Kombinationen mit 
der CTRL-Taste. 

Mit den drei folgenden Programmzeilen können Sie 
selbst diese ASCII-Codewerte abfragen: 

10 GET A$:IF AS»"" THEN 10 
20 PRINT ASC(A$) 

30 GOTO 10 

Zeile 20 druckt den ASCII-Code der gedrückten Taste 
oder Tastenkombination aus. Welche ASCII-Werte Sie mit 
der CTRL-Taste erhalten und für eine Abfrage verwenden 
können, steht in Tabelle 3. 

Wir haben 34 Tastenkombinationen mit eigenen ASCII- 
Codewerten zur Verfügung, die wir zur Abfrage von ge¬ 
drückten Tasten verwenden können. Einige sind mit Vor¬ 
sicht zu genießen. CTRL-E zum Beispiel hat denselben 
ASCII-Codewert wie die Farbe "WEISS", und sie erzeugt 
auch diese Farbe unter dem Cursor. CTRL-R produziert re- 
verse Zeichen, CTRL-N schaltet auf den zweiten Zeichen¬ 
satz mit Kleinbuchstaben um. Ich rate Ihnen daher, nur 
CTRL-Kombinationen zu wählen, die In Tabelle 3 als leer 


angegeben sind. Empfehlenswert ist, die ASCII-Tabelle in 
Ihrem Handbuch mit den zusätzlichen Werten zu ergän¬ 
zen. 

In unserem kleinen Programm wollen wir jetzt in Zeile 
140 das Ende der Eingabe mit der Tastenkombination 
CTRL-A abfragen; 

140 IF ASC(A$) Ol THEN 110 

Die VC 20-Besitzer haben hier ein Problem. Die Kombi¬ 
nation CTRL-A hat laut obiger Tabeile keinen ASCII-Code. 
Ich empfehle, die Funktionstasten zu nehmen. Die Fl-Taste 
zum Beispiel hat den ASCII-Code 133. Die Beendigungs¬ 
zeile lautet dann für den VC 20: 


140 IF ASC(A$) <> 133 THEN 110 
Die Funktionstasten bieten sich beim VC 20 und C64 für 
Abfragen an. Leider gilt das nicht für C16 und C128. Die 
Funktionstasten sind mit Befehlen belegt. Man müßte diese 
Befehle erst löschen. Das ist hier zu kompliziert. 

Es gibt vielleicht aber auch andere Tastenkombinatio¬ 
nen, die Ihnen mehrzusagen. Experimentieren Sie also mit 
den Kombinationen. 

Der künstlidie Cursor 


Wenn wir schon bei Tricks sind: die Eingabe mit GET läßt 
den blinkenden Cursor vermissen. Ihn können wir künstlich 
erzeugen, indem wir die GET-Warteschleife der Zeile 140 
erweitern. Die Benutzer von C16 und C128 bitte ich, statt 
GETKEY auch diese Änderung vorzunehmen. 

Vor dem Rücksprung auf Zeile 110 drucken wir, im Fall, 
daß keine Taste gedrückt worden ist, ein spezielles Cursor¬ 
zeichen - zum Beispiel das Zeichen "*" - gefolgt vom 
Steuerzeichen CURSOR-LINKS (Zeile 114). Nach einer 
kurzen Zeitverzögerung in Zeile 115 wird in der nächsten 
Zeile 116 durch Drucken eines Leerzeichens der künstliche 
Cursor wieder gelöscht. Eine weitere Zeitverzögerung in 
Zeile 117 läßt den künstlichen Cursor regelmäßig blinken. 
Vorsicht, das Semikolon nicht vergessen! Erst in Zeile 118 
folgt die Prüfung, ob eine Taste gedrückt worden ist. Probie¬ 
ren Sie dieses Programm einmal aus, um die Wirkungswei¬ 
se der künstlichen Cursors zu veretehen. 



Bild 4. Erst nachdem die Eingabe mit einer vorher bestimmten Taste beendet Ist, werden 
die Strings auf dem Bildschirm im oberen Speicherbereich abgelegt. Von dort können sie 
an ein Peripherie-Gerät weitergegeben werden. In unserem Fall an einen Drucker. 
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Unser Programm sieht jetzt mit allen Änderungen folgen¬ 
dermaßen aus: 

110 GET A8 

114 PRINT"»[CRSR LINKS] 

115 FOR T»0 TO 100:NEXT 

116 PRINT" [CRSR LINKS] 

117 FOR T=0 TO 100:NEXT T 

118 IF A$=""THEN 110 
120 PRINT A$; 

130 T$=T|+A$ 

140 IF ASC(A$) Ol THEN 110 
150 PRINT CHR$(l47) T$ 


Als zusätzlich erlaubte Taste habe ich in der Zeile 119 die 
RETURN-Taste gewählt - ihr ASCII-Code ist 13. 

Wie gesagt, die Klammer nach dem IF und vor dem AND 
ist wichtig, da das AND beide Grenzwerte - <65 OR >90 
-einschließen muß. Probieren Sie es doch einmmal mit und 
ohne Klammer aus, dann sehen Sie den Unterschied. 

Drucker als Schreibmaschine 


Es wird langsam Zeit, daß wir uns eine echte Anwendung 
dieser Methode zur langen Texteingabe überlegen. Ich 

möchte einen Drucker als 



Bild 5. So wie beim Telefon muß mit dem Computer auch eine Verbindung zu anderen 
»Gesprächspartnern» angewählt werden, bevor es zur Kommunlkatloi. kommt. 


Tastenkombfnatlon 

C128 

C16/116 

C64 

VC 20 

CTRL-A 

1 


1 


CTRL-B 

2 

2 

2 



und so weiter 



CTRL-Q 

17 

17 

17 


CTRL-R 

18 

18 

18 

18 


und so weiter 



CTRL-Z 

26 

26 

26 


CTRL-; 

27 

27 

27 


CTRL-Pfund 

28 

28 

28 


CTRL-; 

29 

29 

29 


CTRL-, 


130 



CTRL-, 


132 



CTRL-' 


30 

30 


CTRL-s 

31 

6 

31 


CTRL- 

6 


6 

6 


Tabelle 3. Auch Ibstenkomblnationen mit <CTRL> haben 
eigene ASCII-Werte, die abgefragt werden können. 

Mit diesem Programm können Sie alleZeicITen der Tasta¬ 
tur eingeben und mit den bisherigen Kenntnissen je nach 
Bedarf entsprechend verarbeiten. 

Wenn Sie die Auswahl reduzieren wollen, zum Beispiel 
nur auf die Buchstaben A bis Z, müssen Sie eine weitere 
Prüfzeile 119 einfügen; 

119 IF ASC(A$) <65 OR ASC{A3l) >90 THEN 110 

Diese Zeile sperrt alle Zeichen, deren ASCII-Codes klei¬ 
ner als 65 (A) oder größer als 90 (Z) sind. Das erreichen wir 
mit derOR-Funktion. Durch Erweiterung dieser Formet las¬ 
sen sich andere Tasten mit einschlieflen, durch Einklam¬ 
mern des bisherigen Ausdrucks und Anhängen der Zusatz¬ 
prüfung mit der AND-Funktion: 

119 IF (ASC(A$) <65 OR ASC{A$) >90) 

AND ASCÜ$)<>13 THEN 110 


Schreibmaschine nutzen. 

Die Idee kam, als ich mei¬ 
nen ersten Drucker besaß, 
aber kein Textverarbei¬ 
tungsprogramm. Ich wollte 
jedoch schon den Drucker 
zumindest als Schreibma¬ 
schine verwenden. 

Ich will dieses Programm, 
das Sie komplett als Listing 
14 vorfinden, mit Ihnen in 
einzelnen Schritten ent¬ 
wickeln. Tippen Sie also bit¬ 
te die Teile wie angegeben 
ein und probieren Sie deren 
Effekt und Wirkung immer 
gleich aus. 

Nehmen Sie bitte in Kauf, 
daß die Zeilennummern 
nicht immer aufeinander 
folgen werden. Ich verwen¬ 
de die aus Listing 14. 

Unser Ziel soll sein, Tastatur und Drucker genau wie eine 
Schreibmaschine zu betreiben, mit dem Unterschied, daß 
nicht jeder Buchstabe sofort ausgedruckt wird, sondern 
zeilenweise. Das erlaubt uns, über den Bildschirm inner¬ 
halb einer Zeile vor dem Ausdrucken Korrekturen vorzu¬ 
nehmen (siehe Bild 4). 

Zur Benutzung der Tastatur verwenden wir die Eingabe 
mit GET. Den künstlichen Cursor werden wir wieder ver¬ 
wenden. Da aber die Zeitverzögerung der »Blink-Zeilen» 
die Geschwindigkeit beeinflußt, mit der neue Buchstaben 
A$ eingetippt werden können, habe ich die Zeit von dem al¬ 
ten Wert T=100 auf T=30 verkürzt: 

230 GET A8 

234 PRINT"«(CRSR LINKS] 

236 FOR T=0 TO 30:NEXT T 
PRINT" (CRSR LINKS] "i 
FOR T=0 TO 30:NEXT T 
IF A$=""THEN 230 
T$=T$+A8 
PRINT A$; 

GOTO 230 

In Zeile 262 wird aus den einzelnen eingetippten Buch¬ 
staben A$ der Text T$ zusammengesetzt. Zur visuellen 
Kontrolle druckt Zelle 264 jeden einzelnen Buchstaben AS 
auf dem Bildschirm aus. Das Semikolon »klebt» sie anein¬ 
ander und Zeile 282 bildet durch Rücksprung die wieder¬ 
holbare Schleife. 

Wie gesagt, das alles kennen Sie schon. Jetzt kommt der 
Drucker ins Spiel. 

Zur einzelnen Weitergabe von Zeichen und Zahlen an ein 
Gerät, das an den Drucker angeschlossen ist, müssen wir 
mit dem OPEN-Befehl eine Verbindung herstellen. Ver¬ 
wechseln Sie das bitte nicht mit dem Einstecken des Ver¬ 
bindungskabels - das ist nur die elektrische Vorausset- 


238 

240 

244 

262 

264 

282 
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zung. Mit dem OPEN-Befehl wird, wie beim Teiefon auch, 
eine Verbindung »angewählt- (siehe Biid 5). 

Wir müssen das immer machen, egai ob es sich um den 
Drucker, die Datasette oder die Roppystation handeit. Nur 
der Bildschirm und die Tastatur bilden eine Ausnahme, die 
sind nämlich sofort nach dem Einschallen des Computers 
automatisch angewähit. 

Ich habe oben mit Absicht gesagt: »Zureinzeinen Weiter¬ 
gabe von Zeichen.,.- Die Weitergabe von ganzen Pro¬ 
grammen geht ohne den OPEN-Befehi mit LOAD und 
SAVE, Diese Befehie besorgen das »Anwählen- von selbst. 

Zeichen für Zeichen 


Der Vergleich mit dem Telefon geht sogar noch weiter, denn 
zum »Anrufen« eines bestimmten Gerätes brauchen wir 
noch eine »Telefonnummer»- in unserem Fall heißt sie »Ge¬ 
rätenummer«. 

Die Nummer der Floppy ist 8, wenn Sie zwei Floppies ha¬ 
ben, 8 und 9. Die Datasette hat die Nummer 1, und was uns 
hier interessiert: Der Drucker hat die Gerätenummer 4. 

Der OPEN-Befehl bietet einen weiteren Luxus, nämlich 
bis zu zehn voneinander unabhängige Verbindungen mit 
einem Gerät. Diesen einzelnen Verbindungen müssen wir 
ebenfalls Nummern geben, selbst wenn wir nur eine einzi- 
geVerbindung brauchen. Zugelassen sind Zahlen von 1 bis 
255. Diese Nummern tragen den schönen Namen »File- 
Nummer«, weil sie eine Datei - auf englisch »File» - öffnen. 

Zum Schluß sei noch eine weitere Möglichkeit erwähnt, 
die wir hier auch gleich ausnutzen wollen. Neben File- 
Nummer und Gerätenummer können wir dem OPEN-Be¬ 
fehl noch eine dritte Instruktion mitgeben. Diese heißt »Se- 
kundär-Adresse« und bewirkt Einstellungen oder UrtiSohal-' 
tungen im angewählten Gerät. Sie werden gleich sehen, 
welche Umschaltung wir beim Drucker verwenden. 

Als File-Nummer nehmen wir 1, die Gerätenummer des 
Druckers ist 4, als Sekundär-Adresse nehme ich 7, weil die¬ 
se Zahl den Drucker in den Kiein-ZGroßbuchstaben-Modus 
umschaltet, den wir für das Programm brauchen. 

204 PRINT CHR$(14) CHR$(147) 

206 OPEN 1,4,7 

Zeile 206 ist das Resultat der ganzen Erklärung. 

Wir müssen neben dem Drucker auch den Computer in 
den Kiein-ZGroßbuchstaben-Modus umschalten. Normal 
machen wir das mit den gleichzeitig gedrückten SHIFT- 
und COMMODORE-Tasten. Diese Tastenkombination hat 
den ASCII-Code 14. Zeile 204 zeigt, wie die Umschaltung 
innerhalb eines Programms mit PRINT und dem CHR$- 
Befehl gemacht wird. Und weil wir gerade dabei sind, hän¬ 
gen wir in dieserZeile noch den ASCII-Code für »Bildschirm 
löschen« (147) an. Nachdem wir jetzt eine Verbindung mit 
dem Drucker hergestellt haben, wollen wir die einzelnen 
Zeichen A$ an den Drucker geben. Das geht genauso wie 
mildem Bildschirm, über einen PRINT-Befehl.Zum Unter¬ 
schied, daß nicht der Bildschirm gemeint ist, steht hinter 
dem Befehl das Zeichen »#« (engl, Abkürzung für »Num- 
ber«ssNummer), gefolgt von derselben File-Nummer, die 
beim OPEN-Befehl verwendet wurde. Dahinter steht, ge¬ 
trennt durch ein Komma, der auszudruckende String. Das 
alles sehen Sie in Zeile 278. 

278 PRINT# 1,T$; 

Bitte vergessen Sie nicht, am Ende des PRINT#-Be- 
fehls(sprich: »Print-Number« oder »Print-Nummer«) ein Se¬ 
mikolon zu setzen. 

Ohne dieses würde nach jedem Ausdruck einer Zeile ein 
doppelter Zeilenvorschub ausgeführt werden, dawir jadas 
Ausdrucken mitderRETURN-Tasteauslösen, die ihrerseits 
einen Zeilenvorschub bewirkt. 


Zum Beenden des Schreibens nehmen wir wieder die¬ 
selbe Methode wie bei unserem ersten Programm, die Ab¬ 
frage der Tastenkombination CTRL-A mit ihrem ASCII- 
Code 1. Auch hier gilt für den VC 20 mein Vorschlag, die 
Fl-Taste mit dem Codewert 133 zu nehmen. Sobald diese 
Tasten gedrückt sind, muß die Verbindung zum Drucker ge¬ 
schlossen werden. Das besorgt der CLOSE-Befehl, hinter 
dem lediglich die File-Nummer der Datei stehen muß, die 
eingangs geöffnet worden Ist, Diese Prüfzeile sieht so aus: 
246 IF ASC(A$)=1 THEN CLOSE 1:END 
246 IF ASCU$)'=133 THEN CLOSE 1:END 
(nur für den VC 20) 

Da diese Zeile mitten im Programm steht, muß sie mit 
END abgeschlossen werden. 

Wir merken uns: 

1. Der OPEN-Befehl stellt eine Verbindung zu einem ange¬ 
schlossenen Ein-/Ausgabegerät her. Man sagt auch, er 
öffnet eine Datei (File) zum Schreiben oder Lesen. 

2. Hinterdem OPEN-Befehl stehen weitere Angaben, min¬ 
destens zwei, maximal sechs. Die drei wichtigsten sind: 
File-Nr, Geräte-Nr., Sekundäradresse 

3. Der PRINT#-Befehl sendet Daten an ein mit OPEN an- 
gewähites Gerät. Maximal können mit einem PRINT#- 
Befehl 255 Zeichen gesendet werden. Dem PRINT#- 
Befehl muß dieselbe File-Nummer folgen, wie dem 
OPEN-Befehl, der die Datei eröffnet hat. 

4. Der CLOSE-Befehl schließt eine eröffnete Datei. Er wird 
ebenfalls mit der entsprechenden File-Nummer verse¬ 
hen. 

Starten Sie jetzt einmal dieses Programmfragment mit 
RUN. Der Drucker druckt nach jedem eingetippten Buch¬ 
staben den jeweils letzten Stand derString-AdditionTS aus, 
allerdings immer in eine neue Zeile. Das müssen wir verhin- 
därn^^:. müssen ebenfalls erreichen, daß eine Zeile erst 
nach ihrer Fertigsteiiung ausgedruckt wird. Eine Zeile soll 
erst dann »fertig« sein, wenn die RETURN-Taste gedrückt 
wurde. 

Diese Prüfung ist für uns einfach, haben wir sie doch 
schon früher angewendet. Diese Prüfung muß vor dem 
PRINT #-Befehl erfolgen, deshalb setzen wir sie zwischen 
die Zeile 264 und 278: 

268 IF ASC(A$)<>13 THEN 230 
280 TS*"" 

Zur Erinnerung: ASC(A$) bildet den ASCII-Code des Zei¬ 
chens A$, 13 ist der Code der RETURN-Taste. Nach 
Drücken der RETURN-Taste ist also die Zeile zu Ende, und 
der String T$ wird komplett ausgedruckt. Bevor eine neue 
Zeile beginnt, muB die »a'lte» gelöscht werden. Das ge¬ 
schieht in Zeile 280undemdem String T$ kein Wert- darge- 


Dru(kerausgabe 


stellt durch zwei Gänsefüßchen hintereinander - zugewie¬ 
sen wird. Bis hierher steht also das folgende Teilprogramm: 
200 REM — LISTING —- 
204 PRINT CHR$(14) CHR$(l47) 

206 OPEN 1,4,7 
230 GET A$ 

234 PRINT''*^[CRSR LINKS] 

236 FOR T»0 TO 30:NEXT T 
238 PRINT" {CRSR LINKS] 

240 FOR T*0 TO 30:NEXT T 

244 IF A$=""THEN 230 

246 IF ASC(AJ)=1 THEN CLOSE 1:END 

(246 IF ASC(A$)=133 THEN CLOSE 1:END (nur VC 20) 

262 T$=T$+A| 

264 PRINT A$; 
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268 IF ASC(A$)<>13 THEN 230 
278 PRINT#1,T| 

280 T$="'' 

282 GOTO 230 

Das Ergebnis kommt einer Schreibmaschine schon 
recht nahe. Lästig ist jedoch, daß wir sehr aufpassen müs¬ 
sen, nicht zu viele Zeichen in eine Zeile zu schreiben, bevor 
wir die RETURN-Taste drücken. Auch die Verwendung der 
Cursor-Tasten kann zum Steckenbleiben des Druckers füh¬ 
ren. Da muß noch etwas geschehen. 

Bei einer Schreibmaschine kann man sowohl den Ab¬ 
stand vom linken Papierrand einstellen als auch die Zeilen¬ 
länge. Unser Programm soll das natürlich auch können. In 
den folgenden Zeilen wird die maximale Zeilenlänge einge¬ 
stellt und in Zeile 254 ausgeführt. 

212 INPUT 'ZEICHEN PRO ZEILE'';Z 
214 IF Z>80 THEN 212 
254 IF LEN(T$)=Z THEN 230 

Da die meisten Drucker nur 80 Zeichen pro Zeile 
{DIN-A4-Format) drucken können, darf die Variable Z nicht 
größer als 80 sein, was in Zeile 214 nachgeprüft wird. Zeile 
254 prüft anschließend, ob die Länge des Strings 'R schon 
den vorgegebenen Wert von Z erreicht hat. ist das der Fall, 
bleibt das Programm in der GET-Schleife der Zeilen 230 
und 254 stehen. Leider kommen wir aus dieser Schleife 
auch mit der RETURN-Taste nicht heraus, da sie ja erst spä¬ 
ter in Zeile 268 abgefragt wird. 

Wir müssen das in Zeile 254 berücksichtigen und die RE¬ 
TURN-Taste nach Erreichen der Grenze Z noch zulassen. 
Ich lasse die DEL-Taste, mit der wir Tippfehler korrigieren 
können, auch zu. Zeile 254 wird erweitert: 

254 IF LEN(T$)=Z AND ASC(A$) <> 13 
AND ASC{A$) <> 20 THEN 230 

Gleich nach der Zeilenlänge legen wir den linkeh'Rand 
abstand L fest: 

218 INPUTaiNKER RAND';! 

Auch dieser Rand darf eine maximale Größe nicht über¬ 
schreiten. Wäre er 80, dann hätten auf der Seite keine Zei¬ 
chen mehr Platz. Er hängt also auch davon ab, wieviel Zei¬ 
chen in der Zeile stehen sollen. Das heißt, daß die Summe 
der beiden Werte, L und Z, die Zahl 80 nicht überschreiten 
darf; 

220 IF L+Z>79 THEN 218 

So, wie es jetzt programmiert ist, bestimmt die Zeilenlän- 
geZ die maximale Größe des linken Randes. Man kann na¬ 
türlich auch zuerst den Rand festlegen, der seinerseits 
dann die maximale Zeilenlänge beeinflußt. 

Interessant wird nun, wie der linke Rand in den Druckvor¬ 
gang eingebaut wird. Ich halte es für eine gute Idee, nach 
dem Ende des Eintippens einer Zeile einfach so viele Leer¬ 
stellen vor den String T$ zu setzen, wie durch den Wert L 
vorgegeben ist. Das darf natürlich erst nach dem Drücken 
der RETURN-Taste, muß aber noch vor dem Ausdrucken 
per PRINT#-Befehl erfolgen, also zwischen den Zeilen 
268 und 278. 

272 FOR J=1 TO L 
274 T$=" "+!$ 

276 NEXT J 

Sie sehen, die String-Addition leistet uns hier auch wie¬ 
der gute Dienste. 

Probieren Sie ruhig das bisher Erreichte aus. Wir nähern 
uns unserem Ziel langsam, aber sicher. 

Die Tasten <CURSOR-UP>. <CURSOR-DOWN > und 
< CURSOR-LINKS > sind Störenfriede. Wir wollen sie des¬ 
halb unterdrücken, gleich nach der Eingabe des Zeichens 
(GET-Schleife) mit der schon bekannten ASC-Umwand- 
lung und Abfrage. Die ASClI-Codes der drei betroffenen 
Cursor-Tasten entnehmen wir dem Handbuch, sie sind 
157,145 und 17. 


248 IF ASC(A5)=157 THEN 230 
250 IF ASC(A$)=145 THEN 230 
252 IF ASC(A?)= 17 THEN 230 

Als weitere Störer kommen die Farb-Tasten und die INST- 
Taste in Frage, aber deren Ausschluß will ich Ihnen überlas¬ 
sen; die Methode ist ja jetzt bekannt. 

DEL bedeutet DELETE (engl.: streichen, löschen), das 
heißt, wir können mit der DEL-Taste in der getippten Zeile 
herumkorrigieren, bevor sie zum Drucken gegeben wird. 

Dadurch wird allerdings die Länge des Strings T$ verklei¬ 
nert - also auch die maximale Zeilenlänge. Außerdem darf 
es nicht möglich sein, mit der DEL-Taste über den linken 
Rand hinweg in die vorhergehende - schon abgeschlosse¬ 
ne-Zeile zu gelangen. Das letztere verhindern wir mit Zeile 
256; die Längenkorrektur besorgt Zeile 258: 

256 IF ASC(A$)=20 AND LEN(T$)*0 THEN 230 
258 IF ASCU$)=20 THEN T$=LEFT$(T$,LEN(T$)-l): 

GOTO 264 

Die Zeile 256 ist wohl leicht verständlich. Die Zeile 258, 
so fürchte ich, bedarf einer näheren Erklärung. Wenn wir 



die DEL-Taste drücken, löschen wir ein Zeichen auf dem 
Bildschirm. Der String T$ verkürzt sich um ein Zeichen, 
aber nur auf dem Bildschirm, Damit die Längenprüfung der 
Zeile 254 nicht durcheinander gerät, müssen wir die aktuel¬ 
le Länge von T$ um 1 verringern. Der Befehl LEFT$(T$,X) 
schneidet bekanntlich aus einem String T$ von links her ge¬ 
nau XZeichen heraus, ln Zeile 256 habe ich für diesen Wert 
X die Länge von T$ minus 1 genommen, dargestellt durch 
den Ausdruck LEN(T$)-1. 

Nach Zeile 258 folgt Zeile 262, durch deren Wirkung die 
als letztes Zeichen eingegebene DEL-Taste zum String T$ 
addiert werden würde. Um das zu verhindern, hängen wir 
in der Zeile 256 einen Sprungbefehl auf die übernächste 
Zeile 264 an. 

Das Programm »SCHREIBMASCHINE« ist eigentlich 
komplett. Mir fallen lediglich drei Verbesserungen ein, die 
man einfügen könnte: 

- Einstellung des Zeilenabstandes 

- Klingel bei Zeilenende 

- Ausdrucken des gesamten Textes 

Den Zeilenabstand kann man bei fast allen Druckern ver¬ 
ändern. Leider ist die Methode nicht bei allen Druckern 
gleich. Deshalb habe ich in diesem Programm darauf ver¬ 
zichtet. Falls Sie es aber fürihren Druckervorsehen wollen, 
gebe ich Ihnen einen Hinweis. 

Die Abfrage des einzustellenden Wertes kann In einer 
Zeile 222 erfolgen, wieder mit IN PUT, Darauf folgt eine Ab¬ 
frage auf einen zulässigen Wert. 

222 INPUT''ZEILENABSTAND"iA 

224 IF A < MIN OR A > MAX THEN 222 

226 ...Befehl für Uuischaltung... 
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In Zeile 224 sollten Sie die minimal und maximal zugelas¬ 
senen Werte für den Zellenabstand überprüfen. Die Werte 
selbst sowie den Befehl für die Umschaltung müssen Sie 
Ihrem Drucker-Handbuch entnehmen. 

Das Ertönen einer Klingel einige Zeichen vor dem Zeilen¬ 
ende ist nicht schwer zu programmieren. Nur ist die Erzeu¬ 
gung von Tönen bei Jedem der Commodore-Computer ver¬ 
schieden. Deshalb beschränke ich mich hier ebenfalls nur 
auf einen prinzipiellen Hinweis. Im kompletten Listing 14 ist 
eine Version für den C64 angegeben. 

Ich schlage vor, am Ende des Programms ab Zeile 266 
ein Unterprogramm anzuhängen, welches angesprungen 


200 

REM LISTING SCHREIBMASCHINE 

*** 


202 

B 



<178> 

204 

PRINT CHR*<14)CHR#<147} 



<205> 

206 

OPEN 1,4,7 



<195> 

208 

DIM Z«(600) 



<042> 

210 

1 



<106> 

212 

INPUT"ZEICHeN PRO ZEILE' 

iZ 


<019> 

214 

IP Z>S0 THEN 212 



<051 > 

216 

a 



<192> 

zia 

INPUT'-LINKER RflND";L 



<063> 

220 

IF L+Z>79 THEN 218 



<196> 

228 

t 



<204> 

230 

BET fl* 



<1B4> 

232 

t 



< 20 a> 

234 

PRINT"*tLEFT>''t 



<219> 

Z3S 

FOR T=0 TO 30:NEXT 



<053> 

230 

PRINT"tSPflCE,LEFT)" j 



<080 > 

240 

FOR T»=0 TO 30:NEXT 



<057> 

242 

• 



<219> 

244 

IF fl*="" THEN 230 



<iai> 

246 

IF flSCtfl»)"-! THEN CLOSE 

ItENDsREM VC-2 



0 133 



<225> 

247 

IF ASC(A*)=2 THEN GOSUB 

310s REM 

VC-20 



134 



<055> 

248 

IF ASC{A#>=157 THEN 230 




250 

IF ABC(A*}=145 THEN 230 



X21^ 

252 

IF ASC<fl»>=17 THEN 230 



<105> 

254 

IF LeN<T*)=Z AND ASC<fl»)<>13 AND 

ASC(A 



*)<>20 THEN 230 



<01B> 

256 

IF flSC(A*)=20 AND LEN<T*)=0 THEN 

230 

<136> 

250 

IF ASC<A#)=20 THEN T*=LEFT»(T#,LEN<T*) 



-1)ißOTD 264 



<000> 

260 

T 



<238> 

262 

T*=-T#+A* 



<022> 

264 

PRINT fl*s 



<035> 

266 

IF LEN(T*}=Z-5 THEN BOSUB 206 


<199> 

268 

IF ASC<A*K>13 THEN 230 



<20e> 

270 

B 



<24B> 

272 

FOR J-1 TO L 



<010> 

274 

T*-" •'♦T* 



<110> 

276 

NEXT J 



<114> 

27S 

PRINT»!,T*g 



<245> 

279 

Z»(X>-T* 



<iii> 

280 

T»-"“ 



<131> 

281 

X-X+1 



<055> 

202 

GOTO 230 



<012> 

2S4 

i 



<0B6> 

206 

REM +*+* UNTERPROGRAMM KLINGEL +♦++ 

<009> 

207 

REM (BEISPIEL C- 

-64) 


<105> 

208 

1 



<1I7> 

209 

POKE 54277,20 



<139> 

290 

POKE 54273,26 



<130> 

292 

POKE 54276,33 



<252> 

294 

POKE 54296,5 



<1B3> 

296 

FOR K-1 TO 100tNEXT K 



<2ZB> 

298 

POKE 54276,32 



<254> 

299 

RETURN 



<103> 

300 

: 



<022> 

310 

REM++ UNTERPROGRAMM SANZER TEXT 

+++ 

<045> 

312 

1 



<034> 

314 

FOR Y-0 TO X 



<146> 

316 

PRINT#l,Z*<Y>j 



<ZS4> 

318 

NEXT Y 



<020> 

320 

RETURN 



<1245 

Listing 14. Die Verwertung unserer Kenntnisse über 

Strings ermöglicht ein kleines Textverarbeltungs 


Programm: »Schreibmaschine« 





wird, sobald das fünftletzte Zeichen einer Zeile erreicht Ist. 
Die Prüfung erfolgt kurz vor dem Rücksprung auf eine neue 
Zeicheneingabe: 

266 IF LEN{T$)=Z-5 THEN GOSUB 286 
286 ....Unterprogramm KLINGEL ... 

299 RETURN 

Das Unterprogramm besteht aus dem Auswählen einer 
Tonhöhe, der Lautstärke, dem Einschalten des Tones und, 
nach einer kurzen Zeitverzögerung, aus dem Ausschalten 
des Tones. 

Ich möchte die Perfektionierung dieses Programms noch 
eine Stufe weiter treiben. Wir können bis jetzt nur zeilenwei¬ 
se ausdrucken. 

Eine interessante Variante wäre die Möglichkeit, den 
ganzen geschriebenen Text auf einen Schlag auszu¬ 
drucken. Dazu müssen wir ihn aber speichern. Wir müssen 
also die einzelnen Zellen T$ genauso aneinanderhängen 
wie die einzelnen Zeichen A$. Das könnte so aussehen: 
279 Z$=Z$+T$ 

Einer String-Variablen Z$ können wir aber nur maximal 
255 Zeichen zuweisen. Das Zusammenbinden mehrerer 
Zeilen, die einzeln maximal 80 Zeichen enthalten können, 
würde aber sehr rasch, nämlich ungefähr nach vier Zeilen, 
zu einer verbotenen Stringlänge und damit zum Abbruch 
des Programms führen. Aber es gibt eine Lösung dafür. 

Wir können jede einzelne Zelle T$ In einem eindimensio¬ 
nalen Feld (Array) abspeichern und bei Bedarf das gesam¬ 
te Feld ausdrucken. 

Für diejenigen Leser, denen das Arbeiten mit Feldern 
nicht ganz geläufig ist, will Ich das Verfahren kurz erläutern; 

Unser Ziel Ist es, die einzelnen Zeilen, sowie sie mit dem 
Drücken der RETURN-Taste ausgedruckt werden, der Rei¬ 
he nach zu speichern. Wir müssen dazu jede Zeile der Rei- 
UTiafTiaei* .numerieren und ihr den jeweiligen Text T$ zuord¬ 
nen. 

279 Z1$=T$ 

in Zeile 279 ist eine derartige Zuordnung angebracht. 
Aber nach jeder neuen Zeile müßte die Zahl hinter dem Z 
um 1 erhöht werden. Das geht aber nur, wenn wir Z$ als so¬ 
genannte Feld-Variable definieren und sie so schreiben; 
Z$(l) =T$ 

Die 1 in der Klammer können wir durch eine normale Va¬ 
riable ersetzen und in einer Schleife nach jedem Durch¬ 
gang hochzählen. 

278 PRINT#l,T$j 

279 Z?(X)=T$ 

280 TS»"" 

281 X=X+1 

282 GOTO 230 

Bei Beginn des Programms steht X auf Null, und die erste 
Zeile T$ wird der Feld-Variablen Z${0) zugeordnet, die 
nächste Zeile der Feld-Variablen Z$(1) und so fort. 

Wbnq wir nur 11 solcher Feld-Variablen - also 11 Zeilen 
- haben, brauchen wir nichts weiter tun. Für mehr Zeilen 
müssen wir den nötigen Platz »reservieren«. Das besorgt 
der DIM-Befehl. 

Wie groß wind wohl der notwendige Platz sein? Ein Text 
hat zirka 60 Zeilen pro Seite. Wenn wir maximal zehn Seiten 
schreiben wollen, dann muß das Feld 600 Plätze haben. 
208 DIM Z$(600) 

Natürlich können wir vorsorglich mehr Platz reservieren. 
Der Haken an der Sache ist, daß die Reservierung Spei¬ 
cherplatz belegt, und davon haben zum Beispiel der VC 20 
und der C16 ohne Speichererweiterung recht wenig zur 
Verfügung. Sie können das aber ruhig probieren. Wenn der 
Speicher nicht reicht, dann meldet dies der Computer so¬ 
fort nach RUN mit einer entsprechenden Fehlermeldung. 
Sie müssen dann halt die Zahl hinter dem DIM-Befehl klei¬ 
ner werden lassen. 
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Wir marken uns: 

1. Der DIM-Befehl reserviert einen Speicherbereich für ei¬ 
ne dureil den dahinter in der Klammer stehenden Zahl 
festgelegte Anzahl von Variablen. Diese Variablen ha¬ 
ben alle denselben Namen und unterscheiden sich nur 
durch eine fortlaufende Zahl, die ebenfalls in Klammern 
steht. 

2. Der durch den DIM-Befehl reservierte Speicherbereich 
wird FELD oder ARRAY genannt. Entsprechend heißen 
die »numerierten« Variablen Feld- oder Array-Variable. 

3. Mit DIM können sowohl Felder für numerische als auch 
für String-Variable reserviert werden. Ein Feld kann im¬ 
mer nur einen einzigen dieser Variablen-Typen enthal¬ 
ten. 

Also, die zusätzlichen Befehle lauten: 

208 DIM Z5(600) 

247 IF ASC(A$)=2 THEN GOSUB 310 
279 Z$(X)=T$ 

281 X*X+1 

Ich habe eine noch nicht erwähnte Zeile 247 einge¬ 
schmuggelt. Sie steht bei den anderen Abfrage-Zeilen und 
prüft, ob eine Taste mit dem ASCII-Code 2 gedrückt worden 
ist. Dieser Code entspricht der Tastenkombination CTRL-B, 
mit der wir auf ein Unterprogramm ab Zeile 310 springen, 
welches den ganzen angesammelten Text - das heißt das 
ganze Feld - ausdruckt. 

Für den VC 20 wählen wir die F3-Taste zur Auslösung die¬ 
ses Sprunges. Sie hat den ASCII-Code 134: 

247 IF ASC(A$)=134 THEN GOSUB 310 (nur für VC 20) 
Das Unterprogramm ab Zeile 310 sieht so aus: 

310 REM UNTERPROGRAMM 
314 FOR Y=0 TO X 
316 PRINT#l,ZS(Y)j 
318 NEXT Y 
320 RETURN 

Sobald wir das Unterprogramm anspringen, enthält die 
Zählvariable X die Zahl der Zeilen, die eingegeben worden 
sind. In einer weiteren Schleife fangen wir eine neue Zäh¬ 
lung an. und zwar von Null bis zum letzten Wert X. Die Zähl¬ 
variable dafür nenne ich Y. In dieser Schleife werden alle 
Eintragungen des Feldes Z${Y) der Reihe nach ausge¬ 
druckt. 

Auf diese Weise überlisten wir die Einschränkung von 
Basic, nämlich nur 255 Zeichen ln einer String-Variablen 
aneinanderreihen zu dürfen. 

Im Listing 14 ist das vollständige Programm - ohne die 
Einstellung des Zeilenabstandes beim Drucker - im Zu¬ 
sammenhang ausgedruckt. 


Wollen Sie beispielsweise ganze Zahlenkolonnen auf 
dem Bildschirm untereinander ausgeben, sollten Sie diese 
Eigenschaft bei der linksbündigen Formatierung auf jeden 
Fall berücksichtigen. 

Dazu ein kurzes Programm-Beispiel: 

20 REM-LINKSBUENDIG- 

30 A=123.5 
35 B=-2175.334 
40 0=0.23 
45 D=22.4567 
60 PRINT TAB(12) A 
65 PRINT TABU2) B 
70 PRINT TAB(12) 0 
75 PRINT TAB(12) D 

Zuerst definiert man also die Werte der vier Variablen A 
bis D. Dann lassen sie sich mit TAB (12) ausdrucken. 

An den oberen Bildschirmrand kann man noch eine Zah¬ 
lenreihe gefolgt von einer Leerzeile schreiben, die das Ab¬ 
zählen der Stellen erleichtert: 

50 PRINT"012345678901234567890123456789" 

55 PRINT 

Nach <SHtFT-CLR/HOME> und RUN sieht man auf 
dem Bildschirm die in Bild 6 gezeigte Darstellung: 


RUN 



RUN 


O1234507S8O1 

234567890123458789 


012345678901 

234567690123456789 


1235 



123.5 


-2176.334 



-217S334 


.23 



.23 


22.4567 


1235 

22.4567 




-2175.334 





.23 


— 



22.4567 



Bild 6. Linksbündige Forma¬ 
tierung mit dem TAB-Befehl, 
Beachten Sie die Position 
der Vorzeichen. 


Bild 7. Neben der links¬ 
bündigen Formatierung ge¬ 
stattet der TAB-Befehl auch 
die rechtsbündige 


3 


Formatieren von Text und Zahlen 


Zahlen in Reih und Glied oder in Tabellen zu schreiben, ist 
aufderSchreibmaschine auch für eine geübte Schreibkraft 
nicht ganz einfach. Ihr hilft nur der sogenannte Tabulator 
oder das schlichte Auszählen der Anschläge. Der Compu¬ 
ter kennt den Tabulator auch, aber das Auszählen über¬ 
nimmt natürlich ein kleines Programm. 

Linksbündige Formatierung 

Die Funktion des Tabulators übernimmt der Basic-Befehl 
TAB{X). Er setzt eine nachfolgende Zahl an den mit X be- 
zeichneten Platz. Wie das Beispiel 
PRINT TAB(3) 22.43 

zeigt, fängt der TAB-Befehl mit dem Zählen ab der Spalte 
0 an, reserviert in der Spalte 3 einen Platz für das Vorzei¬ 
chen und schreibt die Zahl 22.43 ab der vierten Spalte. Die¬ 
se Eigenheit muß man kennen. 


Wie oben beschrieben, steht das negative Vorzeichen in 
der Spalte 12, alles andere ab Spalte 13. Und in für uns un¬ 
gewohnter Art wird in der amerikanischen Schreibweise 
des Computers die Null vor dem Dezimalpunkt weggelas¬ 
sen. Daran muß man sich gewöhnen. 

Rechtsbündige Formatierung mit TAB 

Die rechtsbündige Ausrichtung von Zahlenkolonnen ist 
schon etwas aufwendiger, da sie ja von der Länge der Zah¬ 
len abhängt. Der Befehl TAB(12) gibt wie vorher die 12. 
Spalte als Fixpunkt aus, nur muß davon noch die Ziffernan¬ 
zahl der Zahl abgezogen werden: 

PRINT TAB(12-Zlffernaahl) Zahl 
Zur Bestimmung der Ziffernzahl verwendet man den Be¬ 
fehl LEN(X$). 

Sie sehen, dieser Befehl gilt nur für die Länge eines 
Strings, ln der Anwendung muß man also die Zahlen erst in 
Strings umwandeln, bevor man ihre Länge feststellen kann. 
Auch dafür kennen wir einen Befehl, Er lautet, wie in folgen¬ 
dem Beispiel zu sehen, STR$(X), 

Die hier folgenden Programmzeilen machen das für die 
vier Zahlenwerte A bis D: 

100 REM-RECHTSBUENDIG MIT TAB— 

110 A$=STR$(A) 

115 B$=STR$(B) 

120 C$=STR$(C) 

125 D$=STR$(D) 

Danach folgen die mit dem LEN-Befehl veränderten 
Druckbefehle: 

130 PRINT TAB(12-LEN(A$)) A 
135 PRINT TAB(12-LEN(B$h B 
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140 PRINT TAB(12-LEN{C$)) C 
145 PRINT TAB(12-LEN(D$)) D 
150 PRINT 

Nach Löschen des Bildschirms und RUN erhält man jetzt 
den in Bild 7 dargestellten erweiterten Ausdruck; 

Zum Nachprüfen nehmen wir Zeile 130. 

- LEN(A$} ergibt die Zahl 6 (der Vorzeichenplatz und der 
Dezimalpunkt zählen mit!). 

- (12-LEN(A$)) ergibt demnach ebenfalls 6. 

- Das heißt, daß die Zahl A ab der 7. Spalte beginnt. 

Rechtsbündige Formatierung mit RIGHTS 

Wie so oft beim Computer, gibt es auch hier mehrere Lö¬ 
sungen für ein Problem. Anstelle des TAB-Befehls läßt sich 
auch der String-Befehl RIGHTS einsetzen. Dieser Befehl - 
mit der Schreibweise RIGH1^(X$,Z) - schneidet aus einem 
String X$ von rechts her Z Stellen heraus. 

PRINT RIGHT${"ABEND",3) ergibt END. 

Um zu sehen, was wir In unserem Beispiel machen müs¬ 
sen, schauen wir uns die Situation noch einmal genauer in 
Bild 8 an. 

Mit dem Befehl 
PRINT RIGHT5(A$A2) 

könnte man von rechts her genau zwölf Stellen heraus¬ 
schneiden und ab dem linken Rand auf den Bildschirm 
schreiben, wenn A$ aus der Zahl 123.5 und mehr als zwölf 
Leerstellen davor (I) bestehen würde, also: 

PRINT RIGHT$('"'+A$,i2) 

Nichts ist leichter als das. Man erzeugt einfach einen 
String Z$, der aus lauter Leerstellen - vorsichtshalber eine 
ganze Bildschirmzelle lang - besteht. Diesen String setzten 
wir vor die Zahlen. 

200 REM-RECHTSBUENDIG MIT STRINGS- 

210 FOR 1=1 TO 40 
215 2$=Z$+" ” 

220 NEXT 

Diese drei Zellen erzeugen durch AOfaches Addieren von 
Leerstellen den gewünschten Leerstellen-String Z$. 

225 PRINT RIGHT'$(Z$+AS,12) 

Die Zeile 225 bildet aus Z$ und A$ einen String aus 46 
Zeichen, wobei die Zahl A ganz rechts steht. Mit RIGHTS 
{Z$+A$,12) werden von rechts zwölf Zeichen herausge¬ 
schnitten und mit PRINT ausgedruckt. 

Entsprechend lauten die restlichen Zeilen; 

230 PRINT RIGHT?(Z$+B$,12) 

235 PRINT RIGKT$(Z$+C$,12) 

240 PRINT RIGHT$(Z$+D$,12) 

Das Resultat Ist In Bild 9 dargestellt. 


Das haben wir gelernt: Formatierte Zahlen 


1. Linksbündige Formatierung von Zahlen macht man mit TAB(X). 

2. Zur rechtsbündigen Formatierung von Zahlen mit TAB(X) muB die 
Zahleniänge vom Argument X des TAB-Befehls abgezogen wer¬ 
den. 

a Man kann auch mit dem String-Befehl RIGHTS rechtsbündig forma¬ 
tieren, Indem links vor der Zahl Leerstellen hinzugefügt werden und 
eine mit dem Argument X identische Anzahl von Stellen herausge¬ 
schnitten wird. 


Die bisherigen drei Programmteile sind in Listing 15 zu- 
sammengefaßt dargestellt. 

Dezimaipunkt-Formatlerung mit TAB 

Eine linksbündige oder rechtsbündige Formatierung von 
Zahlen mag sicher ihre Anwendung haben, gebräuchlich 
ist sie aber nicht. Wir sind eher gewohnt, alle Einer-, Zeh¬ 
ner-, Hunderterstellen untereinander zu schreiben. Das ist 
die Formatierung mit dem Dezimalpunkt, 

Dazu benötigt man einen Programmleil, der feststellt, wo 
innerhalb der Zahl der Dezimalpunkl liegt. Uns hilft dabei 


01Z34S6789012345E7S9 

123.5 

-217S.334 

.23 

22 ^ 155 ? 


ABEND 
6432 1 


Bild 8. Das Prinzip der rechts¬ 
bündigen Formatierung mit 
dem RIGHTS-Befehl ist gut 
zu erkennen 


RUN 


01234567B901 

234567990123466799 


1235 


•2175.334 


.23 


22.4567 

1236 


•2175.334 


.23 


22.4587 


1235 


•2175.334 


.23 


22.4567 



Bild 9. Rechtsbündiges 
Formatieren mit dem 
RIghtS-Befehl Ist einfach 
durchzuführen 


der Basic-Befehl MIDS. Inder Schreibweise MID$(K$,M,N) 
schneidet er aus dem String K$ von links ab der M-ten Stelle 
N Zeichen heraus. 

PRINT MID$(''RECHTS",2,4) ergibt ECHT (Bild 10). 

Statt der vier Werte A bis D nimmt man jetzt eine Zahl K. 
Sie werden gleich sehen, warum. Sie wird wie vorher in ei¬ 
nen String verwandelt (Listing 16): 

340 K$=STR$(K) 

Die nächsten drei Zeilen 
345 FOR J=1 TO 40 
350 V$=MID$(K$,JA) 

355 IF V$ < THEN NEXT J 

schneiden aus dem String KS jeweils eine Ziffer heraus, 
und zwar in einer Schleife von der ersten bis zur 40. Ziffer 
des K$. Bei jedem Schritt wird geprüft, ob das Re¬ 

sultat VS ein Dezimalpunkt ist. Ist das nicht der Fall, geht die 


10 REM**»F0RMATIERTE ZAHL*»* 


< 197> 

IS : 


<247> 

2a REM - LINKSBUENDIß - 


<iia> 

25 : 


<001 > 

3a fl=I23.5 


<041 > 

35 Ei=-2175.334 


v.225> 

40 C=0.23 


.183; 

45 D-22.45<>7 


<094> 

50 PRINT"0I234567a901234557390123455789012 


3455789 


<236> 

55 PRINT 


<157> 

6Q PRINT TABU2> A 


<002> 

65 PRINT TftB(12) B 


-,136^ 

70 PRINT TflB{12) C 


<013> 

75 PRINT TflB(12) D 


< 147> 

95 1 


<071> 

100 REM - RECHTSBUENDIG MIT 

TAB - 

<029> 

105 i 


<0S1> 

110 AJ=STR«1A> 


<042> 

215 B«>eTR«<B) 


<1821;' 

120 CS=STR*(C) 


<061^ 

12 s DS=STRS(D) 


<199? 

130 PRINT TAB(12-LEN(AS)) A 


<102> 

135 PRINT TAB<1Z-LEN<B*1 ) b 


<141> 

140 PRINT TAB(l2-LeN(C*) > C 


<180> 

145 PRINT TAB<12-LEN<D*>) D 


<219> 

150 PRINT 


\2S2> 

190 1 


<166> 

200 REM - RECHTSBUENDIG MIT 

STRINGS - 

<.033> 

205 I 


<1S1> 

210 FOR I=l TO 40 


<23a> 

215 2»=Z*->" " 


<1S5> 

220 NEXT 


<2.30> 

225 PRINT RIQHT*(Z*'*-A*.12> 


<202> 

230 PRINT RIBHT#(Z*-fB*,12) 


<20B> 

235 PRINT RIGHT*(Z»•^C*,12J 


<214> 

240 PRINT RIßHT#(Zf-»D*, 12! 


<220> 

290 t 


<012.» 

Listing 1S. Formatierte Zahlenkolonnen 
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300 REM *»)(#)(* DEZIMAL-FORMAT **»»***» 

30S : 

307 s 

310 REN-DEZIMAL-FORNAT MIT TAB- 

315 
320 


325 

330 

335 

340 

345 

350 

355 

360 

365 

370 

375 

399 

400 
405 
410 
415 
420 
425 
430 
435 
440 
445 
450 
455 
460 
465 
470 
475 
490 
500 
505 
510 
515 
520 
523 
525 
530 
535 
540 
545 
560 
570 
575 


PRINT’‘01234567a9012345678901234567a901 

234S6789 

PRINT 

READ K 

IF K°0.0 THEN 400 
K*»STR*(K) 

FOR J=1 TO 40 
V#»MrD*(k*.J,l) 

IF •' THEN NEXT J 

PRINT TAB(12-J> K 
J=40 
EOTü 330 

DATA 123.5,-2175.334.0.23,22.4567.0.0 
s 

REM-DEZIMAL-FÜRMAT MIT STRINGS- 

> 

FOR I»! TO 40 
Z*=ZfT" " 

NEXT 
PRINT 
READ K 

IF H=0.0 THEN 500 
K.4'=STR»(K) 

FOR J=1 TO 40 
V*=MID*CK*,J.l) 

IF THEN NEXT J 

PRINT RIGHT* ( Z*+K*, 12-<- < LEN (K*1 - J) ) 

J=40 
GOTO 430 

DATA 123.5.-2175.334.0.23.22.4067, 

REM-ZAHLEN GLEICHER LAENGE- 


, 0.0 


FOR 1=1 TO S 
Z*=Z*+" " 

NEXT 
L=7 
PRINT 
READ K 

IF K=0.0 THEN END 
Kl#=STRt(K:) 

K2*=MZD*(K1*,l.L) 

PRINT TAB(12) RIGHT#xZ*+K:2*,L) 

GOTO 530 

DATA 123.5,-2175.334.0.23,22.4567.0.0 
Listing 16. Dezlmalpunkt-Formatierung mit dem TAB- 
Befehl als Beispielprogramm 


<246,-" 

'X027,'' 

.029.- 

088 > 
«,037> 

■x.252> 
< 173> 
<196'' 
••253 .• 
■■;063-' 
-X119; 
'.075. 
<066 
■>B20; 
-•iia,' 
vl0&;' 
<223.-‘ 
< 121 > 
.082; 
-127.' 
<I76> 
- 101 .' 
<176; 
-.01 7- 
<040, 
■.099' 
<163.- 
•219> 
<175-- 
<16,6. 
■.004,; 

<2ia) 
<216> 
<067;- 
< 212 - 
-;16S.' 
-.7.7.1 > 

'.2o0> 

<203> 

<022; 


12 3 4 
rRECHTSi 

123456 


RUN 


012345678901 

234667S901234S6789 

123 

S 

•2175 

334 


23 

22 

4567 


Bild 10. So funktioniert 
der MID$-Befeht: aus 
-RECHTS-wIrd «ECHT» 


Bild 11. Dezimalpunkt' 
Formatierung mit dem 
TAB-Befehl 


<119; 

<142; 

'•031> 

<080; 

<a30> 

<1B2> 

'070.' 

<•169; 


Programm auf den nächsten, in unserem Beispiel noch 
nicht vorhandenen Programmteii ab Zeile 400. 

Um das Programm zu vervollständigen, übernehmen wir 
aus dem Listing 15 die Zeilen 50 und 55 mit der Ziffernleiste, 
hier aber mit den Zeilennummern 320 und 325: 

320 PRINT "0123456789012345678901234567890123456789" 
325 PRINT 

Das ganze Programm ergibt als Resultat Bild 11. 

Genau wie im obigen Beispiel des rechtsbündigen For- 
matierens kann die Dezimalpunkt-Formatierung statt mit 
dem TAB-Befehl auch mit dem RIGHTS-Befehl realisiert 
werden. 

Der einzige Unterschied zu dem TAB-Verfahren liegt dar¬ 
in, daß auch hier der Zahlen-String K$ mit dem Leerstellen- 
String Z$ verlängert wird. 

Nur die Berechnung, wie viele Zeichen von rechts her 
aus dem überlangen String Z$+K$ herausgeschniten wer- 


□ncn 


Schleife einen Schritt weiter. Der Rücksprung von Zeile 355 
erfolgt mit NEXT J, in Zeile 345 wird nach einem ergebnislo¬ 
sen Vergleich der Schleifenzähler hochgezähit. 

Ist es der Dezimalpunkt, bleibt die Zählvariable J auf ih¬ 
rem Wert stehen, der damit der Anzahl der Ziffern links vom 
Dezimalpunkt entspricht. Diese Zahl J muß vom TAB-Wert 
12 abgezogen werden, damit die Zahl K mit ihrem Dezimal¬ 
punkt auf die 12. Spalte geschrieben wird: 

360 PRINT TAB(12-J) K 

Die vier Zahlen werden diesmal in einer DATA-Zeile ge¬ 
speichert und mit dem READ-Befehl ausgelesen. Deshalb 
braucht man dafür, wie oben erwähnt, nur eine Variable: 
330 READ K 

335 IF K=0.0 THEN 400 
365 J=40 
370 GOTO 330 

375 DATA 123.5,-2175.334,0.23,22.4567,0.0 

Nach dem Ausdrucken der ersten Zahl muß die Zählva¬ 
riable auf ihren Endwert gesetzt werden (Zeile 365), bevor 
die nächste Zahl durch den Rücksprung-Befehl in Zeile 370 
gelesen werden kann. Nach jedem READ-Befehl wird in 
Zeile 335 geprüft, ob die »Endmarkierung« in der DATA- 
Zeile erreicht ist. Diese Markierung muß eine Zahl sein, die 
selbst als Ausdruck nicht Vorkommen kann. In diesem Fall 
wurde die Zahl 0.0 gewählt. Tritt sie auf, dann springt das 



den müssen, ist etwas komplizierter. Schauen Sie bitte 
noch mal Bild 8 an. Statt jeweils zwölf Zeichen abzuschnei¬ 
den und auszudrucken, muß man jetzt 12 + Anzahl der Zif¬ 
fern rechts vom Dezimalpunkt abschneiden. Diese Zahl ist 
aber leicht errechenbar aus der Länge der Zahl minus der 
Anzahl der Ziffern links vom Dezimalpunkt. Wir kennen sie 
schon, es ist der Stand der Zählvariable J. 

Der Print-Befehl lautet jetzt: 

PRINT RIGHT$(Z$+K$,12+(LEN(K$)-J)) 

Dieser Programmteil kann sehr leicht durch Überschrei¬ 
ben der 300er Zeilennummern - natürlich nur dort, wo man 
die Befehle übernimmt - erzeugt werden. Er sieht so aus: 

400 REM—-DEZIMAL-FORMAT MIT STRINGS-.- 

410 FOR 1=1 TO 40 
415 Z$=Z$+" " 

420 NEXT 
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425 PRINT 
430 READ K 

435 IF K=0.0 THEN 500 
440 K$=STR$(K) 

445 FOR J=1 TO 40 
450 V$=HID$(K$,J,1) 

455 IF V$ < ) " THEN NEXT J 

460 PRINT RIGHT$(Z$+K$,12+(LEN{K$)-J)) 

465 J=40 
470 GOTO 430 

475 DATA 123.5,-2175.334,0.23,22.4567,0.0 
Sie sehen, alle Teile außer Zeile 460 kennen Sie schon. 
Das Resultat Ist Identisch mit dem der Zellen 300 bis 375. 


Das haben wir gelernt: Dezimalpunkt-Formatlerung 

1. Zahlen können auf den Oezimalpunkt ausgerichtet untereinander 
geschrieben werden, indem mit dem MiDS>Befehl der Platz des De¬ 
zimalpunktes ermittelt und auf Ihn rechtsbündig geschrieben wird. 

2 . Die Methoden zur Rechtsbündigkeit sind die gleichen wie vorher. 


Formatierte Zahlen gleicher Länge 

Bislang wurden Zahlen verwendet, die verschieden lang 
sind, sowohl vor als auch hinter dem Dezimalpunkt. In vie¬ 
len Fällen, in denen Zahlen in Tabellen - meistens mit be¬ 
schränktem Platz - geschrieben werden, müssen sie die 
gleiche Länge haben. Die Methoden, dies zu erreichen, 
sind die gleichen wie die bisher gezeigten. Ein Beispiel soll 
es verdeutlichen. Ich gebe folgende Regeln vor: 

- Die Zahlen sind wieder der Variablen K zugeordnet und 
werden aus einer DATA-Zelle ausgelesen. 

- Die Variable L bestimmt die zugelassene Gesamtlänge 
der Zahl (inklusive Vorzeichen und Dezimalpunkt). 

- Wenn Zahlen länger sind als L, dann werden sie von 
rechts her abgeschnitten, das heißt, sie verlieren Stellen' 
hinter dem Dezimalpunkt. 


Es wurde allerdings eine neue Zelle 523 eingeschoben, 
welche die gewünschte Länge der Zahlen vorgibt. Und In 
Zeile 540, In der die Zahl K In einen String umgewandelt 
wird, taucht jetzt als String-Variable K1$ auf. Man braucht 
nämlich noch eine zweite String-Variable für K, bei der die 
Zahlen rechts auf die Länge L gestutzt werden. Das macht 
man wieder mit dem MID$-Befehl: 

545 K2$=MID$(K1$,1,L) 

Diese Zelle schneidet aus K1$ ab der ersten Ziffer von 
links her L Ziffern heraus. 

Wir könnten natürlich die Zeilen 540 und 545 zusammen¬ 
ziehen und so K1$ und K2$ sparen: 
K?=MID$(STR$(K),1,L) 

Aber das Ist nicht so verständlich. 

Die Links-und Rechtsbündigkeit erzielen wir wie gehabt: 

560 PRINT TAB(12) R1GHT$(Z$+K2$,L) 

Mit RUN 500 und durch Verändern des Wertes von L kön¬ 
nen Sie die Wirkungsweise ausprobieren. 

Diese elf Zeilen können, wie vorher bei K$ schon ange- 
deulet, zusammengeschoben werden. Die Methode führt 
allerdings zu der oft beklagten Unleserlichkeit von String- 
Befehlen. Zur Demonstration: 

500 REM— 

530 READ K 

535 IF K=0.0 THEN END 

560 PRINT TAB(12) RIGHT$(" '')+MID$(STR$ (K),l,7),7) 

570 GOTO 530 

575 DATA etc. 

Es ist wie in der Mathematik. In Zeile 560 werden einfach 
alle Variablen eingesetzt. Das ist zwar kurz, aber übersicht¬ 
lich Ist es nicht. 

Mit RUN erhalten Sie den in Bild 12gezeigten Bildschirm¬ 
ausdruck. 

•. Es j«i»l',t Ihnen nun frei, alle genannten Methoden belie¬ 
big zu kombinieren. 


RUN 

012345678901234567B90123456789 

123.5 

-2175.334 

.23 

22.4567 

123.5 

-2175.334 

.23 

22.4567 

123.5 

•2175.3 

.23 

22.456 


Bild 12. Wie man Im 
Beispiel sieht, werden ab 
der 13. Spalte die Zahlen 
rechtsbündig ausgegeben 


RUN 

012345678901 

234SS7S901234S6789 


LEITERWAGEN 

HAUS 

TAB-BEFEHL 

ZEICHEN 

LEITERWAGEN 

HAUS 

TAB-BEFEHL 

ZEICHEN 


LeiTERWAQeN 

HAUS 

TAB-BEFEHL 

ZEICHEN 



Bild 13. Rechts- und links¬ 
bündige Texte werden aus¬ 
gegeben entsprechend der 
Formatierung 


Wir können die meisten Telle des vorherigen Programms 
ab Zeile 400 verwenden: 

500 REM—ZAHLEN GLEICHER LAENGE- 

510 FOR 1=1 TO 8 
515 zs^za-t-" " 

520 NEXT 
523 L=7 
525 PRINT 
530 READ K 

535 IF K=0.0 THEN END 
540 K1$=STR$(K) 

570 GOTO 530 

575 DATA 123.5,-2175.334,0.23,22.4567,0.0 

Bis hierher kennen Sie schon alles. 


Das haben wir gelernt; Formatierte Zahlen gleicher Länge 


Um verschiedene Zahlen auf gleiche Länge zu bringen, werden sie 
mit dem MID$-Befehl von rechts her auf diese Länge abgeschnitten 
und dann wie oben mit RIGHTS rechtsbündig auf dem Bildschirm oder 
Drucker ausgegeben. 


Formatieren auf dem Drucker 

An dieser Stelle zeigen wir ihnen, warum die Formatie¬ 
rung mit String-Befehlen derjenigen mit dem TAB-Befehl 
vorzuziehen ist. 

Wenn Sie eine Zahlenreihe formatiert auf Ihrem Drucker 
ausgeben wollen, gibt es mit dem TAB-Befehl je nach Druk- 
kertyp manchmal Schwierigkeiten, die mit einem gezielten 
Einsatz von String-Befehlen von vornherein vermieden 
werden können. 

Um das im Programm einmal auszuprobieren, müssen 
Sie im obigen Programmteil (ai? Zeile 40Q)'tam Anfang den 
Drucker anwählen und Ihm die »Befehls^ewalt« geben. 
Nach erfolgreicher Prüfung aüf 0.0 »st dle Verbindung wie¬ 
der zu unterbrechen. 

406 OPEN 1,4;CMD 1 

430 IF K=0.0 THEN PRINT#1:CL0SE 1: END 
Den PRINT-Befehl in Zeile 460 brauchen Sie nicht wie 
sonst nach einem OPEN-Befehl in einen entsprechenden 


98765432t09 

< --► 

B76543210pi2345678 

1 

DAS IST DER TITELl 

^ \0 ^ 

90123456789 

^ 1 1 W 



^ W 

^ 1 W 


Bild 14. So funktioniert das Zentrieren von Texten 
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10 KE-M******* LISTING 3/3 *********** <.192; 

15 ! <247> 

20 REM-ZENTRIERTE TEXTE- <09S,' 

25 E <001> 

30 PRINT’'9a765432109B76S43210012345&7a9012 

34567B9'’ <031 > 

35 RRINT <137> 

40 READ M <146> 

45 IF A*=’'8" THEN END <024; 

50 PRINT TAB<(40-LEN(A*))/2) A# <077J 

SS BGTO 40 <001> 

70 DATA DAS IST DER TITEL'.UEBERSCHRIFT.8 

PIEL6EG1NN <00e> 

75 DATA eASlC-KURS,STftINB-ECKE,'’123456",® <1427 

LIstIng 17. Das Demo druckt mehrere In einer DATA-Zelle 
abgelegte Überschriften zentriert aus 


PRINT^-Befehl umzuwandeln, weil in Zeile 406 ja der 
CMD-Befehl verwendet wird - ein Vorteil, der leider viel zu 
selten beachtet wird. 


Das haben wir gelernt: Formatierte Ausgabe auf dem Drucker 


1. Zum Formatieren auf dem Drucker sind die Methoden mit String- 
Betehlen denjenigen mit dem TAB-Betehl vorzuziehen. 

2. Wenn nach der Druckeranwaht mit OPEN 1,4 der CMD-Befehl ge¬ 
nommen wird, können alle -normalen- PRINT-Befehle wie beim 
Bildschirm auch verwendet werden. 


Diese Überschrift ist 16 Zeichen lang. Da der Bildschirm 
aus 40 Spalten besteht, bleiben uns 40-18=22 Leerstellen, 
die gleichmäßig links und rechts von der Überschrift anzu¬ 
ordnen sind. Bild 14 zeigt, wie das funktioniert. 

Die Ziffernleiste ist so aufgebaut, daß sie mit zwei Nullen 
in der Mitte seitensymmetrisch ist. So kann man die Zen¬ 
trierung leicht nachprüfen. Sie sehen, was wir gemacht ha¬ 
ben. Um das zu verstehen, eine Übersicht: 


- wir haben die Überschrift 
definiert 

A$= "DAS IST 

DER TITEL!" 

- wir haben die Länge davon 
genommen 

L=LEN(A$) 

- wir haben die Länge von der 
Spaltenzahl des Bildschirms 
abgezogen 

D=40-L 

- wir haben die Differenz halbiert 

H=D/2 

- wir haben mit diesem Wert als 
TAB-Argument die Überschrift 
ausgedruckt 

PRINT TAB(H) A$ 


Formatierte Texte 

Das linksbündige und rechtsbündige Formatieren von 
Texten geht im Prinzip mit der gleichen Methode, wie bei 
den Zahlen. Das ist auch leicht verständlich, da wir ja die 
Zahlen in Strings umgewandelt und sie dann wie Texte wei¬ 
terverarbeitet haben. 

Links- und rechtsbündige Texte 

Listing 15 läßt sich sehr leicht auf Text umstellen. Statt der 
Zahlen A, B, C und D gibt man Strings ein: 

30 A$='TEITERWAGEN'' 

35 B$="HAUS" 

40 C$="TAB-BEFEHL" 

50 D$="ZEICHEN" 


In einem Demonstrationsprogramm (Listing 17) wird ge¬ 
zeigt, wie man mehrere in einer Datenzeile abgelegte Über¬ 
schriften zentriert ausdruckt: 

Dieses Programm erzeugt den in Bild 15 dargestellten 
Bildschirmausdruck. 

Bei den Texten mit ungerader Zeichenzahl ist die Zentrie¬ 
rung um eine Stelle verrückt. Auch Zahlen kann man zen¬ 
trieren, wenn sie als Stringseingegeben sind, wie die unter¬ 
ste Zeile in Bild 15 zeigt. 


Das haben wir gelernt: Text zentrieren 


Zum Zentrieren von Strings wird ihre Länge bestimmt und von der 
Biidschirm- oder Papierbreite abgezogen. Der Rest wird haibiert. Das 
daraus resuitierende Ergebis wird als MaS für Llnksbündlgkeit ge¬ 
nommen. 


4 


Uiufschriff und Farbenspiele 


Entsprechend müssen in den Zeilen 60 bis 75 und 130 bis 
145 die Zahlen A bis D in Stringvariable A$ bis D$ umge¬ 
wandelt werden. Zu guter Letzt entfallen die Zeilen 110 bis 
125, da eine weitere Umwandlung in Strings nicht mehr not¬ 
wendig ist. 

Dieses abgewandelte Programm liefert den in Bild 13 
dargestellten Ausdruck. 

Wie zu erwarten, werden die definierten Textvariablen 
rechts- und linksbündig ausgegeben. 

Das ist so einfach, daß das ganze, geänderte Programm 
hier nicht wiedergegeben wird. 


Das haben wir gelernt: Links- und rechtsbündige Texte 

Das rechts- und linksbündige Formatieren von Texten macht man 
mit denselben Methoden wie bei den Zahlen. 


Zentrieren 

Unter Zentrieren versteht man das Anordnen eines Tex¬ 
tes genau in der Mitte des Bildschirms oder des Papiers. 
Die häufigste Anwendung dürfte sicher die Überschrift 
sein. 


Ein hübsches Programm beginnt meistens auch mit einem 
hübschen Vorspann, der oft aus bewegten Titeln besteht, 
die schnell Aufmerksamkeit erregen. 


PTTM ^ 


98765432109676343210 

DAS IST D 
UEBERS 
SPIELG 
BASIC 
STRINC 
123 

31234667890123456769 

ER TITELI 

CHRIFT 

EGINN 

-KURS 

>-ECKE 

456 


Bild 15. Ausdruck des Oemoprogramms, In dem Über¬ 
schriften zentriert auf dem Bildschirm oder Drucker 
erscheinen (siehe Zahlenreihe oben) 


Titel können in mehreren Arten bewegt werden - von 
links nach rechts, von rechts nach links, in Einzelbuchsta¬ 
ben oder als ganzer Block. Überall haben die Strings ihre 
Hand im Spiel. 


Um zu sehen, wie das funktioniert, nehmen wir als Bei¬ 
spiel die Überschrift 
»DAS IST DER TITEL!«. 


Textbaustein von links 

Zuerst soll ein Titel von links nach rechts mit einzelnen 
Buchstaben aufgebaut werden. Dazu picken wir mit dem 
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MIDS'Befehl die Buchstaben der Reihe nach aus dem Titel 
und drucken sie auf den Bildschirm. 

10 REM»**** ***** 

30 A$='DAS IST DER TITEL!' 

35 S=1 
40 T=1 

45 PRINT MID$(A$,S,T); 

Die entscheidende Zeile ist Zeile 45. In ihr wird mit dem 
MIDS'Befehl jeweils nur ein Zeichen (T=1) des Textes A$ ab 
dem S-ten Buchstaben herausgepickt, wobei am Anfang S 
den Wert 1 hat. Wenn S nun in einer Zählschleife laufend 
um 1 erhöht wird, erscheint schrittweise der nächste Buch¬ 
stabe von der linken Seite her. Das Semikolon hinter dem 
PRINT-Befehl unterdrückt den Zeilenumbruch, 

Die Schleife bilden wir mit: 

60 S=S+1 
70 GOTO 45 

Das Ende der Schleife stellen wir in Zeile 65 fest - mit der 
Frage, ob S die Gesamtlänge des Strings AS schon erreicht 
hat. Es hilft dabei der LEN-Befehl. 

65 IF S >LEN(A$) THEN END 

Alles in Bewegung 


Wenn der Befehlsteil CHRS{145) fehlt, werden die Einzel¬ 
teile des Titels untereinander geschrieben, weil das in Zeile 
45 verwendete Semikolon fehlt. Probieren Sie das mal aus. 

Mit CRSR-UP wird jedes neue Titelfragment, das eigent¬ 
lich in eine neue Zeile gedruckt wird, in die alte Zeile geho¬ 
ben, wo es das vorhergehende Fragment überschreibt. Da¬ 
durch entsteht der Eindruck, daß der Text immer länger und 
von links in den Bildschirm hereingeschoben wird, aller¬ 
dings nur solange, bis er komplett vorhanden ist. 

Nach links hinausschieben 
Wir wollen jetzt die Richtung umdrehen und den Text von 
rechts nach links aus dem Bildschirm hinausschieben. 
230 A$=''DAS IST DER TITELI" 

245 PRINT CHR$(145) MID$(A$,S,T) 

250 FOR Z=1 TO lOOiNEXT Z 
270 GOTO 245 

Wir fangen jetzt mit dem Text in voller Länge an 
240 T=LEN(A$) 

und zwar ab dem ersten Zeichen 
235 S»l 

265 IF S >LEN(A$) THEN END 
Wenn wir S hochzählen, T aber konstant lassen, 

260 S=S+1 

dann wird im zweiten Schritt der volle Text ohne das erste 


Damit der ganze Vorgang nicht zu schnell abläuft, ist eine 
Verzögerung einzufügen: 

50 FOR Z=1 TO 100: NEXT Z 
Diese Schleife zählt zwischen jedem Ausdrucken eines 
Buchstabens von 1 bis 100, nicht in Sekunden, sondern in 
viel kürzeren Abständen, Mit der Wahl der oberen Grenze 
von Z können Sie die Geschwindigkeit festlegen. 

Hereinschieben von links ^ 

Schwieriger wird es schon, wenn der String nicht aus ein¬ 
zelnen Zeichen aufgebaut wird, sondern sich in den Bild¬ 
schirm hineinschieben soll. Das bedeutet nämlich, daß er 
rückwärts gedruckt werden muß. 

Die meisten Zeilen bleiben im Prinzip identisch, auch der 
PRINT-Befehl. Bei MID$ muß mit dem letzten Buchstaben 
angefangen werden. S beginnt also bei einem Wert, den wir 
mit S=LEN(A$) errechnen. Dann wird S in der Schleife im¬ 
mer um 1 verringert, bis Null erreicht ist. 

130 AS^'DAS IST DER TITEL!" 

135 S=LEN(A$) 

140 T=1 
160 S-S-1 

165 IF S=0 THEN END 

Damit der Text lesbar bieibt, darf man nicht jeweils nur ei¬ 
nen Buchstaben ausdrucken (T=1), sondern zuerst einen, 
dann zwei, dann drei und so weiter. Das heißt, T muß immer 
um 1 hochgezählt werden. 

155 T=T+1 

Der Rücksprung und die Zeitschleife können unverän¬ 
dert übernommen werden; 

150 FOR Z=1 TO 100;NEXT Z 
170 GOTO 145 

Jetzt fehlt nur noch der PRINT-Befehl, Wenn man ihn so 
schreibt wie vorher, nämlich: 

145 PRINT MID$(A$,S,T); 

also mit Semikolon, dann schiebt sich zwar der Text von 
linksherein, abernichtschrittweise. Versuchen Sie es ruhig 
einmal. 

Vielmehr ist der jeweilige Text durch Weglassen des Se¬ 
mikolons immer wieder neu zu schreiben. Damit er in der 
gleichen Zeile bleibt, muß hinter dem PRINT-Befehl der Be¬ 
fehl CRSR-UP stehen. Wir erreichen das mit dem Befehl 
CHR$(145) - 145 ist der Code für CRSR-UP, 

145 PRINT CHR$(145) MID$(A$,S,T) 


Zeichen an die Stelle des alten Textes geschrieben, und 
zwar so lange, bis die Prüfung in Zeile 265 ergibt, daß der 
Wert von S die volle Textlänge erreicht hat. 

Der Titel wandert somit aus dem Bildschirm heraus. 

Nur eins ist noch unschön. Der letzte Buchstabe des Tex¬ 
tes bieibt stehen, da er durch das um ein Zeichen kürzere 
neue Fragment nicht überschrieben werden kann. Wir kön¬ 
nen das korrigieren, indem wir am Schluß des Textes noch 
-einLeerzeichen einfügen. Dieses, wenn es stehen bieibt, 
'tsT jamoht sichtbar. 

230 A$="DAS IST DER TITEL!" 

Von rechts nach links durchschieben 

Da der Text so rasch verschwindet, soll er diesmal quer 
über den ganzen Bildschirm wandern und am linken Rand 
wieder verschwinden, so daß er rechts herein- und links hin¬ 
ausgeschoben wird. 

Wie machen wir das? 

Der erste Trick besteht darin, in die Zeilen 310 bis 330 vor 
den Text mindestens 39 Leerstellen zu schreiben, so daß 



der eigentliche Titel erst ab dem 40. Zeichen des Strings A$ 
beginnt. 

310 FOR X=1 TO 40 
315 " 

320 NEXT X 

325 A$='DAS IST DER TITELI" 

330 A$=B$+A$ 

Der zweite Trick betrifft den Wert von T. In Zeile 340 ge¬ 
ben wir ihm nämlich den Wert 39. 

Die unveränderte Zeile 345 schneidet jetzt aus dem über¬ 
langen String immer 39 Zeichen heraus, zuerst ab dem er¬ 
sten Zeichen, danach ab dem zweiten und so fort. Dadurch 
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erscheinen zuerst nur die Leerstellen, dann Leerstellen 
plus dem ersten Buchstaben des Textes und so weiter, bis 
der Wert von S in Zeile 365 die Textlänge erreicht hat, 

335 S=i 
340 T=39 

345 PRINT CHR$(145) MID$(A$,S,T) 

350 FOR Z=1 TO 100:NEXT Z 
360 S=S+1 

365 IF S >LEN(AJ) THEN END 
370 GOTO 345 

Wenn Sie T^AO wählen, um ganz am rechten Rand zu be¬ 
ginnen, wird der String zu lang, und es kommen einige Un¬ 
stimmigkeiten im Ausdruck vor. 

Eine letzteVarianteverleiht der Laufschrift ein langes Le¬ 
ben. Wenn in der Zeile 365 das Ende der Schleife erreicht 
ist, soll das Programm nicht beendet werden, sondern mit 
Rücksetzung von S auf den Anfangswert 1 von neuem be¬ 
ginnen. 

365 IF S >LEN(A$) THEN S=1 •- . , 

Die Laufschrift läßt sich durch <RUN/STOP> bremsen. 

Von links nach rechts durchschieben 

Der Text soll jetzt von links nach rechts laufen. Das Prin¬ 
zip wurde schon erklärt, allerdings nur soweit, bis der gan¬ 
ze Text auf dem Bildschirm steht. Mit neuen Zeilennum¬ 
mern kann man das Programm direkt übernehmen: 

400 REM- nach reohte durohsohieben - 

425 A$="T)AS IST DER TITELl" 

435 S=LEN(A$) 

440 T*1 

445 PRINT CHR$(145) MID$(A$,S,T) 

450 FOR Z»1 TO 100:NEXT Z 
455 T=T+1 
460 S=S-1 

465 IF S=0 THEN END 
470 GOTO 44 

Der Trick für das Durchlaufen ist auch schon bekannt; 
Verlängern des Strings A$ mit Leerzeichen. Auch hier müs¬ 
sen die Leerzeichen links vor dem Text stehen: 

410 FOR X=1 TO 40 
415 B$=B$+" " 

420 NEXT X 
430 A$=B$+AS 

Jetzt besteht der String A$ aus dem Text und Leerstellen 
auf der linken Seite. 

Wie vorher läuft der Text von links nach rechts. Aber am 
rechten Rand angekommen, gerät er außer Rand und 
Band. Dadurch, daß er über die 40. Spalte hinaus geschrie¬ 
ben werden muß, erscheinen die Buchstaben natürlich in 
der nächsten Zeile. 

Wie können wir erreichen, daß der Text buchstabenweise 
einfach hinter dem rechten Rand verschwindet? 

Nun, sobald der String A$ des MID$-Befehls am rechten 
Bildschirmrand angelangt ist, ist er gerade 40 Zeichen lang 
(T»40). Nun soll der MID$-Befehl nicht die durch T hochge- 
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zählte Länge herausschneiden, sondern immer ein Zei¬ 
chen weniger, damit es nicht in die nächste Zeile rutschen 
kann. 

Wir definieren ab T größer40den Wert von Teinfach neu' 

464 IF T>40 THEN T=T-1 

Nach dem Rücksprung zur Zeile 445 ist der Wert für T in¬ 
nerhalb des MID$-Befeh(s um eins kleiner geworden und 
verkürzt den Text auf der rechten Seite. 

Um den Text zum Dauerläufer zu machen, verwenden wir 
in Zeile 465 nicht END, sondern einen Rücksprung zum An¬ 
fang: 

465 IF S=0 THEN 425. 


Das haben wir gelernt: Wie programmiert man Lautachritt? 


1. Laufschrift kann man mit dem Befehl MID$(A$,S,T) erzeugen, In¬ 
dem man S und T variabel hält. 

2. Für eine Bewegung von links nach rechts gilt: 

Anfangswerte S=L£N(A$) 

T=1 

S wird rückwärts, T aber vorwärts gezählt 

3. Für eine Bewegung von rechts nach links gilt: 

Anfangswerte S-1 T=LEN(A$) oder T-39 

S wird vorwärts gezählt, T bleibt konstant 
4 Um den Text durchlaufen zu lassen, wird er linke durch String-Addi¬ 
tion mit Leerstellen aufgefüllt. 


Text in die Mitte schieben 

Durch die Kombination desZentrisrens mitderdurchiau- 
fenden Schrift erhaiten wir eine Laufschrift, die sich nur bis 
zur zentralen Lage in die Bildschirmmitte bewegt. Wir neh¬ 
men den Programmteil, der den Text von links nach rechts 
schiebt, und versehen ihn mit neuen Zeilennummern (ab 

Milotn' Formel, die für die Mitte des Bildschirms ent¬ 
wickelt wurde (Zentrieren), müssen wir jetzt den Lauf der 
Schrift stoppen, wenn sie die Bildmitte erreicht hat. Man 
macht das mit einer Prüfung der Zählvariablen T in Zeile 
564. Die Formel lautete: 

40-LEN{A$)/2 

Man steht aber zwei kleinen Problemen gegenüber: 

Erstens gilt für LEN(A$) die ursprüngliche Länge des Tex¬ 
tes, der in Zeile 525 definiert wurde. In Zeile 564 aber ist A$ 
bereits mit den vielen Leerstellen versehen, Wir müssen 
daher zwischen diesen beiden Strings unterscheiden, in¬ 
dem wir ihnen verschiedene Namen geben. 

510 FOR X=1 TO 40 
515 " 

520 NEXT X 

525 C$=''DAS IST DER TITEL!" 

530 A$=B$+C$ 

535 S=LEN(A$) 

540 T=1 

545 PRINT CHRS(145) MID$(A$,S,T) 

550 FOR Z=1 TO lOOiNEXT 
555 T=T-H 
560 S=S-1 

Die geänderten Zeilen sind 525 und 530, wobei der Text 
jetzt den Namen C$ hat. 

Das zweite kleine Problem liegt darin, daß mit der Zen¬ 
trierformel linksbündig zentriert wurde, während der MID$- 
Befehl der Zeile 545 auf der rechten Seite agiert. Die Lö¬ 
sung finden Sie bestimmt. 

In Bild 16 sind die Formeln für die Längen der einzelnen 
Abschnitte eingetragen. Der unterste Teil läßt sich leicht 
ausrechnen: 

(40-LEN(C$))/2 -I- 2*LEN(C$)/2 = (40-t-LEN{C$))/2 

Auch durch Nachdenken kann man darauf kommen, daß 
man die Länge des Strings C$ nicht von der Bildschirmbrei¬ 
te abziehen, sondern mit ihr addieren und dann wie vorher 
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halbieren mu6. Mit welcher Methode die Prüfzeile auch im¬ 
mer entwickelt wurde, sie schaut jetzt so aus: 

564 IF T >(40+LEN{C$))/2 THEN END 
570 GOTO 545 

Die Prüfung auf S=0 kann man sich sparen. 

Alle Programmteile der verschiedenen Laufschriften 
sind im Listing 18 zusammengefaßt. 

• Bei diesem Anwendungsbeispiel von String-Befehlen 
geht es um die Farbe des Bildschirm-Hintergrundes. Be¬ 
kanntlich haben die Commodore-Computer mehrere Mög¬ 
lichkeiten, unterschiedliche Farben für den Bildschirm zu 
verwenden. Die einfachsten davon sind 
-Zeichen-Farbe, Bildrand-Farbe, Hintergrund-Farbe. 

Allgemein bekannt - weil in den Handbüchern erwähnt - 
ist die Methode, die Farbe des Hintergrundes und des Bild¬ 
schirmrandes zu verändern. Dafür gibt es bestimmte 
Adressen im Speicher, in die entsprechende Zahlencodes 
hineingePOKEt werden müssen. Diese Adressen sind in 
der folgenden Tabelle zusammengefaßt: 



Fariienspiele 


Durch Ändern der Adressen können aber nur einfarbige 
Flächen erzeugt werden. 

Wir wollen den Bildschirm-Hintergrund mit vielen ver¬ 
schiedenen Farben füllen. Wir verwenden dafür das Ver¬ 
fahren des »Reversen (oder invertierten) Leerzeichens«: 

Wenn Sie zuerst die Tastenkombination <CTRL RVS/ 
ON> und dann eine der Farbtasten zusammen mit der 
CTRL-oder der Commodore-Taste drücken, blinkt der Cur¬ 
sor in der neuen Farbe. Wird jetzt die Leertaste gedrückt, 
erzeugen Sie einen farbigen Streifen auf dem Bildschirm. 
Solange man im reversen Modus bleibt - also nicht < CTRL 
RVS/OFF> drückt - kann man beliebige Farben auswäh¬ 
len und Muster malen. 

Das ist nichts Aufregendes. Jetzt aber soll das Ganze per 
Programm geschehen. 

Zu Beginn werden alle Farben als String definiert und in 
Zeile 25 der Stringvariablen X$ zugeordnet. 

25 X?=''SBLK WHT RED CYN PUR GRN BLUYELj " 

Die einzelnen Farben werden bekanntlich durch Drücken 
der CTRL-Taste gleichzeitig mit der jeweiligen Farbtaste in¬ 
nerhalb von Gänsefüßchen erzeugt. Wenn das geschieht, 
erscheint ein für jede Farbe spezielles reverses Zeichen. 


10 REM LAUFSCHRIFT»*» 


365 IF S>LeN(A»l THEN S=1 

<1157 

IS : 

<2477 

370 GOTO 345 

<02S7 

20 REM - TEXTAUFBflU VON LINKS - 

<059> 

390 : 

<1127 

2S : 

<001> 

400 REM-NACH RECHTS DURCHSCHIEBEN - 

<0787 

30 A*=''DAS IST DER TITEL!" 

<1607 

405 : 

<1277 

35 S=1 

<024> 

410 FOR X=1 TO 40 

<040.< 

40 T=I 

<033> 

415 B*=B*+" '• 

<0027 

45 PRINT MID*(A*,S,T)5 


X 

<1147 

50 FOR 2=1 TO I00:NEXT Z 

<077> 

425 A*="DAS IGT DER TITEL!" 

<0457 

55 REM iT BLEIBT KONSTANT) 

<i62> 

430 A«=e»+A« 

<04G> 

60 S=S+1 

<244> 

435 S=LEN(AS) 

<0997 

65 IF SXLENCA:») THEN END 

<094> 

440 T=I 

<1797 

70 GOTO 45 

<096> 

445 PRINT CHR«(145> niD«(A$,S,T> 

<1137 

<?5 : 

<071 > 

4Sä FOR 2=1 TO 100tNEXT 

<05S> 

100 REM - HEREINSCHIEBEN VON LINKS - 

<130) 

455 T=T-*-l 

<1497 

105 t 

<0SI> 

460 S=S-1 

<1667 

130 A#="DAS IST DER TITEL!" 

<004.' 

464 IF T739 THEN T=T-1 

<1907 

135 S=LEN(A*) 

<053> 

465 IF S=0 THEN 425 

<1077 

140 T»1 

<133> 

470 GOTO 445 

<1367 

145 PRINT CHR#(143) MID#(A*,S.T) 

<067> 

490 : 

<2127 

150 FOR 2=1 TO 100! NEXT 

<012> 

500 REM - VON LINKS 2UR MITTE - 

<2177 

155 T=T+1 

<1037 

505 1 

<2277 

160 S=S-1 

<120> 

510 FOR X=1 TO 40 

<1407 

165 IF S=0 THEN END 

<1995 

515 B*=B*+" " 

<1047 

1719 ÜOTO 14S 

<0667 

520 NEXT X 

<2167 

190 : 

<1667 

525 C»="DAS IST DER TITEL!" 

<1557 

200 REM - NACH LINKS HINAUSSCHIEBEN - 

<067> 

530 AS-BS+C* 

<1527 

ZtS t 

<191> 

535 S=LEN<A«) 

<2017 

230 A*«'’DAS IST DER TITEL! " 

<.104> 

540 T-1 

<0257 

235 S=1 

<2247 

545 PRINT CHR«<14S> M10«(AS,S,T> 

<2157 

240 T=LEN(A«) 

<162;- 

550 FOR 2=1 TO 100;NEXT 

<1607 

245 PRINT CHR*(145> MID*(A#.S,T> 

<1675 

555 T-T+1 

<2517 

250 FOR 2=1 TD I00i NEXT 

<112.'- 

560 S=S-1 

<0127 

255 REM (T BLEIBT KONSTANT) 

<1067 

564 IF r7(40'i-LEN(C*>>/2 THEN END 

<0667 

260 S=S«’l 

<190.^ 

570 GOTO 545 

<2467 

265 IF S>LEN<A«)THEN END 

<0407 

590 1 

<0587 

270 GOTO 245 

<1767 

600 REM - VON RECHTS ZUR MITTE - 

<1557 

290 1 

<0127 

605 t 

<0737 

NHL'H LiNKb' ÜUKLHbLMi kbtN 

30S S 

<1517 
<027 7 

olU rUK A*1 lU 410 

615 BS=BS'7" " 

S 

<2047 

310 FOR X=1 TO 40 

<1967 

620 NEXT X 

<0607 

315 B*=B»+" " 

<1SS> 

625 C*»"DAS IST DER TITEL! " 

<2557 

320 NEXT X 

<0147 

630 A*-E*+C« 

<2527 

325 A*«"OAS IST DER TITEL! " 

<2017 

635 S=1 

<1167 

330 A«=BS.|-A« 

<2047 

640 T=39 

<1967 

335 S=1 

<0707 

645 PRINT CHR*(145) MID#(A*,S,T> 

<0597 

340 T=39 

<1507 

650 FOR Z=1 TO lOBiNEXT 

<0047 

345 PRINT CHR«(14S) MID*(A*,S.T) 

<0137 

655 REM <IBLEIBT KONSTANT) 

<0067 

350 FOR Z=1 TD 100: NEXT 

<214> 

660 S=5+l 

<0807 

355 REM (T BLEIBT KONSTANT) 

<2037 

664 IF S7(40+LEN(C*>)/2 THEN END 

<1587 

360 S=S+1 

<0347 

670 GOTO 645 

<09B> 

Listing 18. Laufschriften mit normalen Basic-Befehlen 
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ln der nun folgenden Zeile 45 setzen wir wieder den 
MID$-Befehl ein, um jeweils eines davon herauszuschnei- 
den und damit eine reverse Leerstelle zu drucken. 

45 PRINT mD$(X$,Z,l) "[RVS-ON] 

Ab der Zahl Z wird vom String X$ ein Zeichen genom¬ 
men. Wenn man zum Beispiel für Z die Zahl 5 wählt, ergibt 
das eine Leerstelle in der Farbe Purpur. 

Vorsicht! Die Zahl Z hat nichts mit dem normalen Farbco- 
de zu tun. Sie stellt lediglich die Position der entsprechen¬ 
den Farbe Im String X$ der Zeile 25 dar. 

Spaßeshalber überlassen wir jetzt die Auswahl der Zahl 
Z dem Zufall mit der Zeile 35: 

35 Z=INT(RKD(1)»8)+1 

Diese Zelle erzeugt eine Zufallszahl zwischen 1 und 6. 
Ein Rücksprung auf Zelle 35 und das Löschen des Bild¬ 
schirms ganz am Anfang (in Zeile 20 das Semikolon nicht 
vergesseni) beschließt den ersten Teil unseres kleinen Pro¬ 
gramms: 

10 REM-FARBSPIEL- 

20 PRINT CHR$(l47); 

25 X$="[BLK WHT RED CYN PUR GRN BLU YELj " 

35 Z=INT(RND(1)»8)+1 

45 PRINT MIDS(X$,Z,1) "l RVS-ON] 

55 GOTO 35 

Nach RUN wählt die Zeile 35 immer neue Farbsymbole 
aus, die dann, durch das Semikolon am Ende des PRINT- 
Befehls aneinandergereiht, ausgedruckt werden. 

Wir füllen dadurch den Bildschirm mit Farbklecksen, die 
zufallsbedingt verteilt werden. 

Wenn wir noch eine Zählschleife einführen, können wir 
mehrere Zeichen der gleichen Farbe drucken: 

40 FOR X=1 TO 40 
50 NEXT X 

Die Zahl 40 drucktjeweils eine ganze Zeile in einer Farbe, 
die Zahl 20 nur eine halbe Zeile. 

Sie können sich so Ihren eigenen Farbeffekt heraussu¬ 
chen. 

Wir wollen jetzt die Farben nicht dauernd laufen lassen, 
sondern nur einen ganzen Bildschirm füllen. Wir verwen¬ 
den dazu noch eine weitere Zählschleife, die außerhalb der 
»Zeichenschleife« (Zeilen 40 und 50) steht und 25 Zeilen 
nach unten zählt. Damit wir einen ungewünschten Zeilen¬ 
hochschub am Ende vermeiden, zählen wir nur bis 24. 

30 FOR Ksl TO 24 
55 NEXT K 

Diese Schleife ersetzt den Rücksprung mit GOTO. 


Das haben wir gelernt: Programmieren farbiger Bildschirme 

1. Auch Farben können mit String-Befehlen verarbeitet werden. Dazu 
müssen die Farben zuerst In einem String untergebracht werden. 

2. Farben haben die gleichen Eigenschaften wie andere Zeichen und 
Buchstaben, wenn Ihrereversen Symbole Innerhalb von 3änsefOB- 
chen stehen. 


9876543210987654321001234567890123456789 
DAS IST DER TITELI 


40-LEN(C$) 

LEN(C$) 

40-LEN(C$) 

2 


2 

40-LEN($) 



LENfCS) 

2 




Bild 16. Der Text lernt laufen: Er wird mit Hilfe der Formel In 
die Mitte des Bildschirme geschoben 

Voreinem derartigen bunten Hintergrund könnte jetztdie 
Laufschrift vorbeiwandern, Man mußdabei nur in Kauf neh¬ 
men, daß die Laufschrift in der aktuellen Zeile die Farben 
löscht und auf der ursprünglichen Hintergrundfarbe er¬ 
scheint. 

Wir nehmen dazu die Zeilen 410 bis 470 aus dem Listing 
18. Jetzt wäre es schön, wenn die Commodore-Computer 
den MERGE-Befehl kennen würden, um die beiden Li- 
stings miteinander zu verknüpfen. 

Das komplette Programm ist in Listing 19 wiedergege¬ 
ben. Es enthält allerdings eine Version mit 16 Farben (Zeile 
25). Außerdem druckt es keine Farbzeilen, sondern lauter 
Flecken (Zeile 30, Zeilen 40 und 50 sind durch REMs außer 
Funktion gesetzt). 

5 Spielereien mit Wörtern 
• und Texten 

I 

Welche Arbeiten sind eigentlich beim Sortieren erforderlich 
-wenn man die Kinder der Größe nach aufstellt, die Socken 
ihrer Farbe entsprechend zusammenlegt, die Namen al¬ 
phabetisch einordnet und so weiter? 

Prinzipiell nehmen wir eines der Objekte und verglei¬ 
chen es mit seinen Nachbarn. Das ist in Bild 17 für die drei 
verschieden großen Männchen »Adi, Luis und Zenzi« dar¬ 
gestellt, die wir der Größe nach aufstellen wollen und daher 
erst einmal sortieren müssen. 

Wir fangen willkürlich mit Luis an. Der Vergleich mit Zen¬ 
zi ergibt, daß ihre Positionen stimmen, also machen wir 
nichts. Als nächstes vergleichen wir Zenzi mit Adi. Der Ver¬ 
gleich sagt uns, daß die beiden ihre Plätze tauschen müs¬ 
sen. Das geht aber nur, wenn einer der beiden so lange auf 
einen »Ausweichplatz« geht, bis der andere den neuen 
Platz eingenommen hat, Der dritte Vergleich, zwischen Adi 
und Luis, verlangt auch einen Platztausch. 

Als Anwendungsbeispiel für das Sortieren von Strings 
bietet sich das alphabetische Ordnen von Namen an. i 
Wie vergleichen wir Namen? 


10 

REM FARBENSPIELE »*i(*»* 


415 

B*=&**" “ 

<O02> 

15 

1 

<247> 

420 

NEXT X 

<114> 

2IB 

PRINT CHR*(147)j 

'.167.' 

425 

A»«"DAS IST DER TITEL! 

' <045> 

25 

X»«='’ {BLACK, RED, CYAN, PURPLE, SREEN. BLUE, V 


430 

A«=B4+A« 

<04S> 


ELLOW,ORANQE,BROUN,L16.RED,GREV 1.OREY 


435 

5>LEN(A*J 

<099> 


2,L1G.GREEN,LIB.BLUE,BREY 3>'' 

<076.; 

440 

T=1 

».I79> 

30 

FOR K=1 TO 24*40 

'.239:’ 

445 

PRINT "{HOMET" TAB(240) 

TAB<240) CHRS( 

35 

Z=INT(1S*RND<0)J+1 

<164> 


145) MID*(A*,S,T) 

<I09> 

40 

REM FOR X=1 TO 2 

•V049,'' 

450 

FOR Z»! TO 1B0:NEXT 

<05B> 

45 

PRINT Ml D* (X*, Z , 1 > •’ CRVSON, SPACE J ’’; 

<221 > 

455 

T»T+1 

<149> 

S0 

REM NEXT X 

<130.- 

460 

S»S-1 

<166> 

55 

NEXT K 

<155 

464 

IF T>40 THEN T=T-1 

<156> 


PR INT '* {RUQFF, WH ITE )" ,■ 

<16I> 

465 

IF S=a THEN 425 

<lß7> 

65 

s 

<041.' 

470 

GOTO 445 

<136> 

410 FOR X=1 TO 40 

<040.'. 





Listing 19. Farbenspielsreien mit dem Computer 
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Das habe ich Ihnen im ersten Teil des Kurses erklärt, 
nämlich im Abschnitt »Welcher String ist größer oder klei¬ 
ner«. Da die Vergleichsfunktionen größer, kleiner (>, <) 
dieASCII-Werteder Buchstaben vergleichen, liegt fest, daß 
Adi kleiner ist als Luis, Das A hat den ASCII-Wert 65, das L 
den Wert 76. 

Zuerst wollen wir eine Liste anlegen, welche Familienna¬ 
men enthalten soll, zusammen mit den ersten Buchstaben 
des Vornamens, um bei möglicher Namensgleichheit ein 
weiteres Unterscheidungsmerkmal zu haben. 

Bäumchen wechsle dich 


Es gibt mehrere Möglichkeiten, eine Namensliste zu spei¬ 
chern. Ich wähle hier die Methode, die Namen aus DATA- 
Zeilen mit dem READ-Befehl in ein Feld (Array) einzulesen. 
Das hat den Vorteil, daß jeder Name mit seiner Position im 
Feld numeriert ist. 

Ich habe heute keine Möglichkeit, auf die Eigenschaften 
der Felder näher einzugehen. Wenn Sie Einzelheiten dar¬ 
über wissen wollen, finden Sie sie im 64’er-Sonderheft 40 
im Basic-Kurs »Schritt für Schritt« in den Lektionen 19 und 
20 . 

110 DATAKLINGE G,MAYER H, HÜBNER A,SCHRAMM K, 

HAÜCK K 

115 DATAMAYER D,WÄNGLER A, RÖDER T.ABSMEIER A, 
SCHNEIDER B,@ 

120 J=J+1 
125 READ A$(J) 

130 IF A$(J) O"®" THEN 120 
Die drei Zeilen 120 bis 130 lesen die Eintragungen der 
DATA-Zeilen in das Feld A$(J). 

Ich habe mit Absicht keine FOR-NEXT-Schleife gaviÄWIt,-. 
weil wir dazu immer die genaue Anzahl der Namen wissen 
müssen. Mit obiger Zählschleife istdiese Anzahl unwichtig, 
solange die letzte Eintragung in den DATA-Zeilen ein 
»Stoppzeichen« ist. In unserem Beispiel ist es der Klam¬ 
meraffe »@«. 

Durch Zeile 130 wird der READ-Befehl so lange wieder¬ 
holt, bis der Klammeraffe auftritt. 

Bevor aber Daten in ein Feld hineingeschrieben werden, 
müssen wir seine Größe mit dem DIM-Befehl definieren. 
Um eine längere Liste zu ermöglichen, wähle ich als Argu¬ 
ment die Zahl 20, das ergibt 21 Plätze (0 bis 20). 

115 DIM A$(20) 

Nach dem Einlesevorgang hat die Zählvariable J einen 
Wert erreicht, der um 1 höher ist als die Anzahl der Namen 
- weil ja der Klammeraffe dabei ist. Das wird weiter unten 
noch wichtig sein. 

Die ausgewählte Sortiermethode ist sehr einfach. Die 
Namen werden der Reihe nach miteinander verglichen. 
Wenn von zwei benachbarten Namen A$(K) und A$(K-t-1) 
der erste »kleiner« (das heißt im Alphabet vor dem zweiten 
liegt) oder gleich ist, werden die nächsten beiden Namen 
A$ (K+1) und A$(K-t-2) miteinander verglichen. 

135 FOR K=1 TO J-2 

140 IF A$(K) <« A$(K+1) THEN 180 

180 NEXT K 

185 END 

Ist die Bedingung der Zeile 140 nicht erfüllt, dann müs¬ 
sen die beiden Namen miteinander ihren Platz tauschen. 
Es ist aber, wie wir in Bild 1 gesehen haben, ein Ausweich¬ 
platz notwendig. Dazu wird in Zeile 145 eine zweite String¬ 
variable B$ eingeführt, über die der Ringtausch stattfindet. 

Das ist; 

145 B$=A${K) 

150 A$U)=A$(K+1) 

155 A$(K+1)=B$ 


Ich hoffe, die Schreibweise dieser drei Zeilen macht den 
Vorgang deutlich. 

Eigentlich könnten wir jetzt mit der K-Schleife in Zeile 135 
fortfahren. Aber es kann ja sein, daß der vorgerückte Name 
noch weiter nach vorn kommen muß. Wir müssen daher die 
Zählvariable K um 1 zurücknehmen und den Vergleich der 
Zeile 140 wiederholen. 

175 K=K-1:G0T0 l40 

Erst wenn dieser Rückwärtsgang keine Verschiebung 
mehr bringt, springt das Programm aus Zeile 140 nach 180, 
und die K-Schleife läuft weiter. 

Bei einer bereits sortierten Liste würde die K-Schleife un¬ 
gehindert durchlaufen, die Frage ist nur, wie oft. 

Nun, wir haben oben gesehen, daß in der Liste, genauer 
gesagt im Feld A$(J), insgesamt J-1 Namen enthalten sind. 
Die Schleife braucht aber nur J-2mal durchlaufen werden, 
da im vorletzten Schritt bereits der letzte Name mit dem vor¬ 
letzten verglichen wird. 



Bild 17. So wird einfach sortiert; Durch Vergleich der 
Elemente entsteht die richtige Reihenfolge. 

Damit Sie in aller Ruhe sehen können, wie das Plätze¬ 
tauschen vor sich geht, habe ich noch drei weitere Zellen 
vorgesehen: 

160 FOR 1=1 TO J-1:PRINT A$(I) 

165 NEXT I:PRINT 

170 GET G$:IF GSs^THEN 170 

Zuerst wird die gesamte Namensliste in ihrer derzeitigen 
Anordnung A$(l) ausgedruckt, gefolgt von einer Leerzeile. 

Zeile 170 erlaubt Ihnen, das Resultat anzuschauen und 
zu vergleichen. Erst mit dem Druck irgendeiner Taste geht 
das Programm weiter. C16- und C 128-Besitzer verwenden 
in Zeile 170 natürlich den praktischen GETKEY-Befehl: 
170 GETKEY G$ 

Die für unsere String-Manipulationen wichtigsten Zeilen 
sind die Zeilen 140 bis 155. 

Worhinalyse 


Das ganze Programm ist in Listing 20 zusammengefaßt. Ich 
gebe zu, daß die hier verwendete Sortiermethode recht pri¬ 
mitiv Ist und viele Schritte braucht. Aber sie ist für Sie ein 
gutes Beispiel, wie ein Programm entsteht. 

Neben Sortieren ist das Durchsuchen, Vergleichen und 
Analysieren von Texten ein klassisches Anwendungsgebiet 
der hohen Kunst, mit String-Befehlen zu programmieren. 
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100 SORTIEREN 1 ***#♦ 

103 J <07'?> 

105 DATA KLINQE G,MAYER H,HUEBNER A,SCHRAM 

M K.HAUCK H <0a7> 

110 DATA MAYER D.WAENGLER A.RDEDER T,ABSME 

lER A,SCHNEIDER B,a <019> 

112 a <0Sa> 

115 DIM A*(20) <171> 

117 I <093> 

120 J«J*1 <123> 

125 READ A«(J) <01B> 

130 IF A*(JK>"e" THEN 120 <n4> 

132 I <i 0 a> 

135 FOR K»1 TD J-2 <149> 

140 IF A*<K) <= A*(K*1) THEN 180 <220> 

143 r <119> 

145 B*>AS(K) <200> 

150 A*(KI»A*(K+I> <23I> 

155 A»<K*1)-B* <146> 

157 8 <133> 

1B0 FOR I*l TO J-liPRINT A#(I> <t91> 

IBS NEXT IiPRINT <2C7> 

167 a <143> 

170 GET G*8 IF G*«’"' THEN 170 <03I> 

175 K-K-laQOTO 140 <063> 

ISO NEXT K <024> 

IB5 END <ia7> 


Listlng 20. Der erste Schritt; die leicht zu verstehende 
Sortiermethode. 


Was denken Sie, wenn Sie in einem Programm die foi- 
genden Zeiien sehen? 

135 XST$=MID$(VST$,M,LEN (NST$)) 

140 FOR L=1 TO LEN(NST$) 

145 IF MID$(NST$,L,l)=Mlb? (XST$,L,l) THEN X=X+1 
Diese Zeilen entstammen einem später folgep^n. Li-, 
sting, das ich natürlich Schritt für Schritt mit Ihnen durchar¬ 
beiten werde. 

Als Aufgabe wähle ich ein kleines, fast triviaies Pro¬ 
gramm, weiches bei Angabe einer Stadt deren Postieitzahl 
sucht. 

Zuerst iegen wir eine Liste von Städten und Postleitzah¬ 
len an, und zwar in DATA-Zeilen, jeweils eine Postleitzahl 
und die entsprechende Stadt hintereinander, durch Kom¬ 
mata getrennt. 

1000 DATA 8470,NABBURG, 5441,NACHTSHEIM 
1005 DATA 6509,NACK,6506, NACKENHEIM 
1010 DATA 8590,NAGEL,7270, NAGOLD,2061,NAHE 
1015 DATA 2121,NAHREND0RF, 8674,NAILA 
2000 DATA 

Zeiie 2000 enthäit zwei Endekennzeichen {Kiammeraf- 
fe). Die Liste ist so aufgebaut, daß sie leicht verlängert und 
erweitert werden kann. Um aber jederzeit zu wissen, wie 
viele Einträge die Liste enthäit, soll zu Beginn des Pro¬ 
gramms ein Teil stehen, der diese Anzahl bestimmt. 

20 Z=0 

25 READ PLZS,ST$ 

Die Anzahl der Einträge wird mit der Variablen Z gezählt. 
Natürlich muß sie am Anfang auf 0 gesetzt sein. Dann lesen 
wir aus den DATA-Zeilen das erste Paar der Postleitzahlen 
und Städte {PLZ$ und ST$). 

30 IF PLZ$ = “® " THEN 45 
Zeile 30 prüft, ob wir das mit den Klammeraffen»®«mar¬ 
kierte Ende der Liste schon erreicht haben. Wenn nicht, 
dann wird Z um 1 erhöht und das nächste Paar eingelesen. 
35 z=z+i 
40 GOTO 25 

Der Rücksprung in Zelle 40 setzt die Zählung fort. Wird 
das Ende erkannt, dann springt Zeile 30 weiter auf Zeile 45, 
und da wollen wir vorläufig das Ergebnis der Zählung aus- 
drucken: 

45 PRINT Z 


Dieses Programm-Fragment mit RUN gestartet ergibt als 
Resultat die Zahl 9 -entsprechend der Zahl der eingetrage¬ 
nen Datenpaare. 

Jetzt kommen die Datenpaare noch einmal an die Reihe, 
denn für den Suchvorgang wollen wir sie in ein F^ld schrei¬ 
ben, dessen Größe wir mit dem DIM-Befehl festlegen müs¬ 
sen. DieZahlZgibt uns die Information dafür. Wirschreiben 
die Zeile 45 neu: 

45 DIM PLZJ(Z),Sr${Z) 

55 FOR 1=1 TO Z 
60 READ PLZ$(IZ),ST$(I) 

65 NEXT I 

Für die auf dem Gebiet der Felder (Arrays) Ungeübten sei 
hier erwähnt, daß es erlaubt ist, sowohl hinter dem DIM- 
Befehl mehrere Felder zu definieren als auch hinter dem 
READ-Befehl mehrere Datentypen einzulesen. Wir haben 
in den Zeilen 25,45 und 60 beides für Postleitzahl und Stadt 
angewendet. 

Die Zeilen 45 bis 65 besorgen das Einlesen der Daten¬ 
paare, diesmal mit einer FOR-NEXT-Schleife, da uns die 
Anzahl der notwendigen Schleifendurchgänge mit der Zahl 
Zja bekannt Ist. 

Aber Vorsicht: Dadurch kommt in Zeile 60 der READ-Be¬ 
fehl zum zweiten Mal vor, so wie in Zeile 25. Das dürfen wir 
nicht so ohne weiteres. Zuerst muß ein interner Zähler, der 
die Reihenfolge beim READ-Befehl überwacht, auf seine 
Anfangsstellung gebracht werden. Das besorgt der RE- 
STORE-Befehl, den wir in Zeile 50 einfügen. 

50 RESTORE 

Jetzt folgt der eigentliche Suchvorgang, der darin be¬ 
steht, daß ein per INPUT-Befehl eingegebener Städtena¬ 
men mit allen Namen in der Liste verglichen wird. Ist er ge¬ 
funden. wird er zusammen mit seiner Postleitzahl ausge- 
dfuciTTwenn nicht, dann meldet das Programm dieses 
Manko. 

75 INPUT "NAME DER STADT"iNST$ 
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Bild 18. Vergleich durch Verkürzen der Worte 

Für den einzugebenden Namen der Stadl müssen wir 
natürlich eine neue Variable angeben - NST$ (für Neue 
Stadt). 

85 FOR K=1 TO Z 

90 IF NST$ = ST$(K) THEN PRINT PLZ$(K),ST$(K): 

GOTO 75 
95 NEXT K 

110 PRINT "STADT NICHT IN DER LISTE" 

Diese Suche durchläuft mit der K-Schleife das ganze 
Feld, also maximal Z mal. Wenn in Zelle 90 eine Überein¬ 
stimmung zwischen dem eingegebenen Städtenamen 
NST$ und dem jeweiligen gespeicherten Namen ST$(K) ge¬ 
funden worden ist, dann wird Postleitzahl und Stadt ausge¬ 
druckt und eine neue Eingabe verlangt. Ist am Ende der 
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Schleife keine Übereinstimmung gefunden, meldet dies 
der PRINT-Befehl der Zeile 110. 

Dieses Programm ist in sich geschlossen und könnte für 
eine eigene Postleitzahlenliste verwendet werden. 

Abkürzung für Fehler 


Für Perfektionisten wollen wir einen »intelligenten« Such¬ 
vorgang einbauen. 

Was wollen wir als Abkürzung beziehungsweise als Feh¬ 
ler zulassen? Ein paar Beispiele für Nabburg: 

Nabberg. Naburg, Naberg, 

Nabb, Nab 

Wir könnten sogar soweit gehen und festiegen, daß nur 
die ersten beiden Buchstaben stimmen müssen. Dann al¬ 
lerdings würden in unserem Fall alle neun Einträge der Li¬ 
ste ausgedruckt werden. Da aber im Postleitzahlenbuch 
nur eine begrenzte Anzahl von Städten aufgeführt Ist, die 
mit »Na« anfangen, wäre diese Festlegung sinnvoll. 

Wie muß nun der Suchvorgang ausschauen: 

1. Der eingegebene Städtename NST^ wird mit allen Ein¬ 
trägen Sl^(K) in der Liste verglichen. 

2. Ist keine Übereinstimmung da, werden die beiden Na¬ 
men NST$ und ST$(K) um ein Zeichen verkürzt und die 
Suche wiederholt. 

3. Die Verkürzung wird fortgesetzt, bisdie Namen nur noch 
aus zwei Buchstaben.bestehen. 

4. Ist immer noch keine Übereinstimmung vorhanden, wird 
eine Fehlermeldung ausgedruckt und eine neue Einga¬ 
be verlangt. 

5. Sobald eine Übereinstimmung auftritt, bricht das Pro¬ 
gramm am Ende der betreffenden Suchschleife dje wei¬ 
tere Suche ab und druckt das Ergebnis. 

In Bild 18 Ist der Vorgang grafisch dargestellt. 

Es gab vorher nur eine Schleife, nämlich die für den 
Suchlauf durch die Liste der Einträge mit K als Zählvariable 
und Z als Obergrenze. 

Jetzt brauchen wir eine zweite, übergeordnete Schleife, 
welche die Namenslänge nach jedem Durchlauf der K- 


10 REM****** SORTIEREN 2 ********** 

12 : 

<244> 

20 Z=0 

<021> 

25 READ PLZ*,ST* 

<114> 

30 IF PLZ*="e" THEN 45 

<143> 

33 Z-Z*l 

<103> 

40 GOTO 25 

<0S0> 

45 DIM PLZ*(Z),ST*(Z) 

<020> 

50 RESTORE 

<100> 

55 FOR I-l TO Z 

<046> 

60 READ PLZ*(I>,ST*(1) 

<141> 

65 NEXT I 

<149> 

67 J 

<043> 

70 T-0 

<047> 

75 INPUT ''NAME DER STADT"sNST* 

<e00> 

80 FOR L=LEN(NST») TD 2 STEP-l 

<096> 

83 9 

<059> 

85 FOR K»1 TO Z 

<092> 

90 IF LEFT*(NST*,L) - UEFT*(ST*(K).L> THEN 
PRINT PLZ*<K),ST*(K)9T-1 

<Z55> 

95 NEXT K 

<19S> 

98 9 

<074> 

100 IF T»! THEN 70 

<057> 

105 NEXT L 

<213> 

110 PRINT'-STADT NICHT IN DER LISTE" 

<028> 

998 9 

<212> 

999 s 

<213> 

1000 DATA 8470,NABBURG,5441,NACHTSHEIM 

<0S8> 

1005 DATA 6509,NACK,6506,NACKENHEIM 

<218> 

1010 DATA 8590,NAGEL,7270.NAGOLD,20S1,NAHE 

<221 > 

1015 DATA 2121,NAHREND0RF,B674,NAILA 

<213> 

2000 DATA e,e 

<1S4> 

Listing 21. Das komplette Sortierprogramm 



Schleife reduziert. Diese Schleife mit der Variablen L be¬ 
ginnt ab der vollen Länge des eingegebenen Namens 
LEN(NST$) und zählt rückwärts bis zur Untergrenze von 
zwei Buchstaben: 

80 FOR L = LEN(NST$) TO 2 STEP -1 
85 FOR K=1 TO Z 
95 NEXT K 
105 NEXT L 

Die Prüfung auf Übereinstimmung in der alten Zeile 90 
muß jetzt der steten Reduzierung der Namenslänge Rech¬ 
nungtragen. Wirerreichen dies mit dem ebenso steten Ab¬ 
schneiden von Buchstaben von links her - natürlich mit 
dem LEFT$-Befehl. 

90 IF LEFT$(NST$,L) » LEFT$ (ST$(K),L) 

THEN PRINT PLZ$(K), ST?U) 

110 PRINT "STADT NICHT IN DER LISTE" 

Vergleichen Sie bittedie Zeile 90 im oberen Abschnitt mit 
dieser hier. Sie werden den Unterschied sehen, 
Jetztfehltnurnoch der Abbruch, wenn eine Übereinstim¬ 
mung gefunden wq,rden ist. Er könnte in Zeile 90 nach dem 
Ausdrucken der Übereinstimmung durch einen Rück¬ 
sprung auf die Namenseingabe in Zeile 75 erfolgen. Dann 
aber verlieren wir alle anderen noch möglichen Überein¬ 
stimmungen mit dem Rest der Liste. 


NSTS 

HACKENHEIM 


ST$(2) 

NACHTSHEIM 

6 Treffer 

ST$(3) 

NACK 

3 Treffer 

STS(4) 

NACKENHEIM 

9 Treffer 


Bild 19. Buchstabenvergleich mehrerer Strings 


l'NSTr»" 

GOLD 

Treffer 

ST$(6) 

NAGOLD 


VSTS: 

---N AGOLD--- 

0 


- --NA GOLD--- 

0 


-- -NAG OLD--- 

0 


--- NAGOLD--- 

0 


---N AGOLD--- 

0 


-■■NA GOLD--- 

4 


• ••NAG OLD--- 

0 


-■-NAGO LD--- 

0 


■■NAGOL D--- 

0 


XST$ 



Bild 20. Vergleich durch Verschiebung der Buchstaben 


Logischerwelse muß daher der Abbruch jeweils am Ende 
einer K-Schleife erfolgen. 

Wir markieren die gefundene Übereinstimmung in Zeile 
90 durch »Setzen einer Flagge« T: 

90 IF LEFT${NST$,L) = LEFT$ (ST$(K),L) 

THEN PRINT PLZ$(K), ST$(K) : T=1 

Natürlich müssen wir diese Flagge T ganz am Anfang auf 
Null setzen: 

70 T»0 

Dann prüfen wir am Ende der K-Schleife, ob die Flagge 
gesetzt ist, wenn ja, dann Abbruch, wenn nein, dann näch¬ 
ste Zeichenreduzierung. 

100 IF T=1 THEN 70 

Das komplette Programm gibt Listing 21 wieder. 

Wenn Sie jetzt einen Städtenamen korrekt eingeben, er¬ 
halten Sie auch nur eine Antwort. Geben Sie aber zum Bei¬ 
spiel den abgekürzten Namen »Nah« ein, druckt das Pro¬ 
gramm sowohl »Nahe« als auch »Nahrendorf«. Bei fehler¬ 
hafter Eingabe, nämlich »Nackenberg«, findet das Pro¬ 
gramm trotzdem »Nackenheim«. Wenn Sie nur NA einge¬ 
ben, tritt das ein, was ich vorausgesagt habe, es werden al¬ 
le neun Einträge, die mit »Na« anfangen, ausgegeben. 
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Das letzte Beispiel zeigt auch schon den Schönheitsfeh¬ 
ler dieses Suchprogramms: 

Die ersten beiden Buchstaben müssen stimmen, Ist nur 
einer der beiden falsch und alles andere richtig, wird keine 
Übereinstimmung gefunden. Wir werden darauf im näch¬ 
sten Abschnitt näher eingehen. Fürs erste soll uns das jetzi¬ 
ge Programm genügen, das Sie noch durch eigene Einträ¬ 
ge ergänzen und weiter ausprobieren können. 

6 • Suchverfahren, Wörtemiten 


ln diesem Abschnitt wollen wir uns zunächst noch einmal 
mit der im vorherigen Teil entwickelten Sortiermethode be¬ 
fassen, die im Suchprogramm noch nicht ganz perlil^'wir^- 
Für eine Übereinstimmung mußten stets die ersten beiden 
Buchstaben richtig sein. 

Dieser Nachteil müßte sich eigentlich irgendwie behe¬ 
ben lassen, wenn wir die Buchstaben einzeln miteinander 
vergleichen. 

Bild 19 zeigt, wie das gemeint Ist. In einem buchstaben¬ 
weisen Vergleich werden die Übereinstimmungen am rich¬ 
tigen Platz gezählt. Der Städtename mit der höchsten Tref¬ 
ferzahl wird ausgedruckt. Oder besser noch, die Treffer- 
zahl, bezogen auf die Länge des eingegebenen Namens 
NST^p wird in Prozent ausgerechnet und alle Datenpaare, 
deren Wert über einer bestimmten (wählbaren) Prozentzahl 
liegen, werden ausgegeben. 

Der ganze erste Teil des Listings 21 aus Lektion 5, näm¬ 
lich bis zur Zeile 65, und die DATA-Zellen werden übernom¬ 
men, 

70 INPUT "NAME DER STADT'';NST? 

75 FOR K=1 TO Z 
110 NEXT K 

Auch die Eingabe und die K-Schleife für das Durchsu¬ 
chen der Liste tauchen hier wieder auf, nur mit anderen Zei¬ 
lennummern. Jetzt ist die K-Schleife die äußere Schleife. 
Pro Datenpaar der Liste werden in der inneren L-Schleife 

Buchstabenverglekh von Strings 


die einzelnen Buchstaben der beiden Namen NST$ und 
ST$ miteinander verglichen. 

85 FOR L=1 TO LEN(NST$) 

90 IF MID$(NST$,L,1) = MID$ (ST$(K),L,1) THEN X=X+1 
95 NEXT L 

Die innere Schleife hat soviel Durchläufe wie der einge¬ 
gebene Namen Buchstaben hat (Zeile 85). Das ist durch¬ 
aus nicht zwingend. Man könnte als obere Grenze auch die 


Länge des jeweiligen Namens in der Liste nehmen, oder 
aber eine fest vorgegebene Zahl, Ich bleibe vorerst bei der 
Methode der Zeile 85. 

Den eigentlichen Vergleich machen wir in Zeile 90 mit 
dem Befehl MID$(NST$,L,1). Dabei zählt L die einzelnen 
Buchstaben. Es wird immer nur ein Buchstabe genommen. 
Wenn die Buchstaben gleich sind, wird ein Treffer X ge¬ 
zählt. Dieser Zähler muß am Anfang auf 0 gestellt werden. 
80 X=0 

Zur Sichtbarmachung der Vergleichsresultate füge ich 
noch einen Ausdruck ein: 

96 PRINT X;ST$(K) 


la REM»*»««* SUCHEN V.l •*•••*«•*« 

12 : 

<244> 

20 Z-0 

<021 > 

2S READ PLZ*.ST« 

<114> 

30 IF PLZ«="0’' THEN 45 

<143> 

35 Z-Z+1 

<103> 

40 GOTO 25 

<0S0> 

45 DIM PLZ*<Z),ST«<2) 

<020> 

50 RESTORE 

<10O> 

55 FOR I-l TO Z 

<046> 

bB READ PLZ»<I),ST«(I) 

<141> 

65 NEXT I 

<149> 

67 : 

<043> 

70 INPUT "NAME DER STADT";NST« 

<251 > 

75 FOR K=1 TC Z 

<082> 

SO X=0 

<073> 

85 FOR L=1 TD LENJNST«) 

<050> 

90 IF MID«<NST«,L,n = MID«(ST«!K) ,L, 1 ) TH 
EN X*X+1 

<035> 

95 NEXT L 

<203> 

96 PRINT XiST«(K} 

<046> 

9B : 

<074> 

100 PR=iee/LEN<KST«)*X 

<170> 

105 IF PR>=70 THEN PRINT ,,PLZ«((0‘' "3T«(K 

— ' .PR»X" 

'10^ 

<016> 

<084> 

110 NEXT K 

<210> 

990 : 

<212> 

999 : 

<213> 

1000 DATA 8470, NABBURG, 5441, NACHTSHEIM 

<0S8> 

1005 DATA 6509,NACK,6506,NACKENHEIM 

<21G> 

1010 DATA 8590,NAGEL,7270,NAGOLD,2061,NAHE 

<221> 

1015 DATA 2121,NAHRENDORF,B674,NAILA 

<213> 

2000 DATA e,e 

<ie4> 

Listing 22. Suchprogramm mit Entscheidungsschwelle 


Wir drucken damit die Anzahl der Treffer und den jeweili¬ 
gen Namen aus. 

Starten Sie mal das Programm und geben als erstes den 
fehlerhaften Ortsnamen von Bild 19, nämlich Hackenheim 
ein. Sie werden das gleiche Ergebnis wie in dem Bild erhal¬ 
ten. Bei Eingabe der Abkürzung »Nah« haben »Nahe« und 
»Nahrendorf« die höchste Trefferzahl, Bei »Na« erscheint 
erwartungsgemäß kein Unterschied, da alle Namen in der 
Liste das Suchkriterium gleich gut erfüllen. 

Jetzt wollen wir noch die Prozentschwelle einbauen. Die 
Prozente errechnen sich nach der Formel: 

Treffer / Buchstabenzahl * 100 
100 PR= (X/LEN(NST$)}*100 

105IFPR >= 70 THEN PRINT,,PLZ$(K)" " ST|(K)5PR"?" 

Ich empfehle Ihnen, wie in Zeile 100 praktiziert, bei ma¬ 
thematischen Ausdrücken immer Klammern zu verwen¬ 
den, um etwaige Unsicherheiten in der Reihenfolge der Be¬ 
rechnung auszuschließen. 

Auch in Zeile 105, in der die Schwelle auf 70 Prozent ge¬ 
legt ist, sind zwei grafische Anmerkungen zu machen. Zum 
ersten stehen direkt nach dem PRINT-Befehl zwei Komma¬ 
ta, die den Ausdruck auf die rechte Bildschirmhälfte schie¬ 
ben. Zum zweiten ist zwischen der Postleitzahl PLZ$ und 
dem Namen ST$ eine Leerstelle eingeschoben, da in 
Strings selbst Zahlen keine Leerstellen beinhalten. 
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Das komplette Programm ist als Listing22 zusammenge¬ 
faßt. Es bleibt Ihnen überlassen, die Zeile 96 zu entfernen, 
sobald Sie die Trefferzählung verstanden haben. Der Aus¬ 
druck dieser Zeile ist für das Ergebnis nicht wichtig. 

Dieses Suchprogramm scheint recht komfortabel und 
brauchbar zu sein und hebt sich durch die einstellbare Ent¬ 
scheidungsschwelle von anderen Lösungen ab. Es hat 
aber leider immer noch eine kleine Schwäche. Um sie zu 
sehen, geben Sie als Ortsnamen das Fragment -Gold« ein. 
Sie erhalten keinen einzigen Treffer, obwohl bei dem Orts¬ 
namen »Nagold« vier von sechs Buchstaben richtig sind. 
Nur, sie werden nicht erkannt, weil dieeingegebenen Buch¬ 
staben, die am Anfang des Wortes stehen, nicht mit den 
richtigen Buchstaben verglichen werden. 

Dieser Fehler führt uns zwangsläufig zu einer weiteren 
Suchmethode, bei der die zu vergleichenden Wörter ge¬ 
geneinander verschoben werden. 

In Bild 20 ist das Schema dieses Vergleichs dargestellt. 

Ich meine, die eindeutige Spitze in der Trefferquote 
spricht für die Methode. Wenn Sie das gleiche Spiel mit 
dem einzigen anderen Narrien in der Liste machen, das mit 
»Gold« noch eine gewisse Ähnlichkeit hat, nämlich mit »Na¬ 
gel«, dann sieht das Ergebnis ähnlich aus, aber mit deutlich 
weniger Treffern (nur 2). 

Obwohl mit dieser Methode der Suchvorgang wesentlich 
verlängert wird, scheint das Ergebnis den Aufwand zu 
rechtfertigen. 

Vergleiih durch WDitverschiebung 


Die Basis des Programms bilden wieder Teile des Listing 
22, nämlich die Zeilen 20 bis 65 und die DATA-Listen der 
Zeilen 1000 bis 2000. Sie dienen dem Speichern der Daten¬ 
paare (Postleitzahl und Städtenamen) in ein Feld und der 
Bestimmung der Anzahl von Eintragungen Z in der Liste. 

Zuerst geben wir wieder den Namen einer Stadt NST$ 
(oder seine Abkürzung) in Zeile 75 ein. Der Suchvorgang 
wird wie vorher von der Schleife mit der Variablen K gesteu¬ 
ert, wobei die Zahl Z die obere Grenze der Schleifenvaria¬ 
blen bildet, 

75 INPUT "NAME DER STADT"jNSTS 
80 FOR K=1 TO Z 
180 NEXT K 

Wenn wir auf Bild 20 schauen, sehen wir die notwendi¬ 
gen Schritte; 

1. Die Anzahl der Schiebeschritte ist die Summe der Buch¬ 
stabenzahl beider Wörter NSTS plus ST$(K) minus 1 

V = LEN(NST$) + LEN(ST$(K)) - 1 

2. Damit der erste Schritt den ersten Buchstaben von 
ST$(K) mit dem letzten Buchstaben des eingegebenen 
Namens NST$ vergleicht, müssen vor ST$(K) Leerzei¬ 
chen eingefügt werden und zwar um 1 weniger als die 
Wortlänge von NST$. 

3. Für den letzten Schritt gilt das gleiche am Ende des Wor¬ 
tes. 

4. Für jeden dieser Verschiebeschritte muß - wie im Pro¬ 
gramm vorher - ein buchstabenweiser Vergleich durch¬ 
geführt werden, 

Zuerst wollen wir die Punkte2 und 3 erfüllen. Wir müssen 
also Leerstellen vor und hinter das jeweilige Wort ST$(K) 
setzen. Die Anzahl der Leerstellen ist abhängig von der 
Länge des eingegebenen Namens NST^ und errechnet 
sich aus: 

LEN(NST$)-1 

Diesen Leerzeichen-String erzeugen wir mit einer klei¬ 
nen Schleife: 

85 A$ = " " 

90 FOR A=1 TO LEN{NST$)-1 



a 


95 A$=A$+" " 

100 NEXT A 

105VST$ = A$ + ST$(K)+A$ 

Da diese Worterweiterung für alle Namen ST$(K) in der 
Liste gemacht werden muß, deren Länge nicht immer 
gleich ist, wird der Leerzeichen-String A$ am Anfang auf 
Null gesetzt (Zeile85). Der in den Zeilen 90 bis 100 erzeugte 
String A$ wird in Zeile 105 vor und hinter das Wort ST$(K) 
gesetzt und bildet so das neue erweiterte Wort VST$, 

Wenn Sie diese Wortbildung überprüfen wollen, dann 
setzen Sie vorübergehend in Zeile 95 einen Punkt zwi¬ 
schen die Gänsefüße und geben einen zusätzlichen Druck¬ 
befehl ein, den wir aber später nicht mehr brauchen; 

95 A$=A$+",'’ 

Oflfi^rSlÜÄ VST$ 

Wenn alles läuft, löschen Sie bitte Zeile 106, 

Den Kern bildet wieder das buchstabenweise Verglei¬ 
chen, so wie wir es im vorigen Programm schon in den Zei¬ 
len 85 bis 95 gemacht haben. Wir verwenden wieder die 
gleiche L-Schleife. Nur dürfen wir nicht das ganze Wort 
ST^(K) zum Vergleich nehmen, sondern nur den sich stetig 
ändernden Teil, der in Bild 19 direkt unter NSTS (Gold) steht. 
Ich nenne ihn XST^. 
l40 FOR L=1 TO LEN( (NST$) 

145 IFMID$(NST$,L,1) = MID$(XST$,L,l) THEN X=X+1 
150 NEXT L 

Das neue Wort wird, wie aus Bild 20 ersichtlich, während 
der Verschiebung ständig neu gebildet. Deshalb wollen wir 
zunächst vor die L-Schleife, welche die Buchstaben ver¬ 
gleicht, die Verschiebeschleife mit der Variablen M setzen. 
120 FOR M»1 TO V 
175 NEXT M 

Die obere Grenze der Variablen M, in Zeile 120 mit V an¬ 
gegeben. wird wie folgt gebildet: 

115 V=LEN(NST$)+LEN(ST$(K))-1 

Jetzt sind wir auch in der Lage, das Teilwort XST$ inner¬ 
halb der M-Schleife zu bilden, und zwar so: 

135 XST$ = MID$(VSTJ,M,LEN(NST$)) 


Viele Ikeffer - wenig Aufwand 


Für jeden Wert von M wird mit dem MID$-Befehl aus dem 
erweiterten Wort VST$ ab der M-len Stelle ein Teil mit der 
Länge des eingegebenen Namens NST$ herausgeschnit¬ 
ten. Falls Sie unsicher sind, schauen Sie sich bitte noch 
einmal Bild 20 an. Da sieht man das sehr deutlich. 

So, jetzt bleibt uns nur noch die Aufgabe, aus den gezähl¬ 
ten Treffern der Zeile 145 eine Aussage zu machen. Auch 
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das ist identisch mit dem ietzten Programm, es haben sich 
nur die Zeilennummern geändert. 

130 X=0 

160 PRINT X;XST$'' "NST? 

165 PR*(100/LEN(NST$))*X 

170IFPR> =70 THEN PRINT ,,PLZ$(K)* " ST$(K)}PR"%" 
Auch hier habe ich die Schwelle auf 70 Prozent gelegt. 
Sie können durch Variieren dieser Schwelle ein Optimum 
herausfinden. 

Die Zeile 160 dient wieder nur zum Verstehen des Ab¬ 
laufs, sie kann später gelöscht werden. 

Jetzt ist das Programm fertig. Es ist in richtiger Reihenfol¬ 
ge komplett in Listing 23 wiedergegeben. 

Wenn Sie nach RUN das Fragment »Nah« eingeben, er¬ 
halten Sie zwei gleichwertige Antworten, nämlich »Nahe« 
und »Nahrendorf«. Bei »Gold« kommt »Nagold« als eindeu¬ 
tiges Resultat heraus. Bei »Mackesheim« müssen Sie 
selbst zwischen 70 Prozent für »Nachtsheim« und 80 Pro¬ 
zent für »Nackenheim« wählen. 


tisch zerlegt und analysiert werden, um dann irgend eine 
intelligente Antwort geben zu können. Derartige Program¬ 
me haben den englischen Namen »Parser«. 

In den 64’er-Sonderheften 2/85 und 4/86 wurden zwei de¬ 
taillierte Kurse von Michael Nickles über die Programmie¬ 
rung von Adventure-Programmen veröffentlicht. Darin wer¬ 
den viele interessante String-Anwendungen für Befehls¬ 
eingabe, Anlegen von Listen in relativen Dateien, Codieren 
von Worttypen und so weiter gezeigt. 

Satzzeriegungen ohne Probleme 


Herr Nickles ist nicht nur der Autor des AdvantXire~Pro- 
gramms Gordon Saga, sondern auch der Autor ©i'nes aus¬ 
gezeichneten Parsers. Da die Kurse sehr ausführlich und 
leicht verständlich sind, kann ich mich hier zu diesemThe¬ 
ma kurz fassen und Sie, liebe Leser, auf die beiden Kurse 
verweisen. 


Beim letzten Beispiel wird allerdings der Nachteil dieser 
Suchmethode deutlich: Sie benötigt recht viel Zeit. 

Diese Methode des Vergleichens mit schrittweiser Ver¬ 
schiebung hat in der modernen Wissenschaft und Technik 
eine große Bedeutung. Sie wird »Korrelation« genannt und 
dient vor allem dem Herausfiltern von extrem schwachen 
Signalen aus einer störenden Umgebung. 

Sie ist aber auch die grundlegende Methode, mit der in 
Textprogrammen und ganz besonders in Adventure-Pro¬ 
grammen eingegebene Sätze und Anweisungen gramma- 


10 REM*»»**« SUCHEN.KOMPL *•**•*» 


IS : 

<247> 

20 Z=0 

<-02f •> 

25 READ PLZ*,ST* 


30 IF PLZ*=”e" THEN 45 

<143> 

35 Z=Z+1 

<103> 

40 BOTO ZS 

<050> 

45 DIM PLZ*<Z).ST»(Z) 

<020> 

50 RESTORE 

<10e> 

55 FOR I=l TO Z 

<046> 

6B READ PLZ*(I>,Sr«(I> 

<141> 

65 NEXT I 

<149> 

70 1 

<046> 

75 INPUT "NAME DER STADT"|NST* 

<000> 

80 FOR K-1 TO Z 

<0B7> 

ez t 

<058> 

05 A*=’"’ 

<114> 

90 FOR A-1 TO LB>1<NST*)-1 

<097> 

95 A*-A*+" •' 

<156> 

100 NEXT A 

<1Z0> 

105 VSI*»A*+ST*(K)+A* 

<066> 

110 s 

<0e6> 

115 V-LEN(NST*>*LEN(ST*(K))-1 

<239> 

120 FOR M»1 TO V 

<141> 

130 X«-0 

<123> 

135 XST*-niD*(VST*,n,LEN(NST*>) 

<220> 

13S 1 

<114> 

140 FOR L»i TO LEN(NST*) 

<ies> 

145 IF MID*<NST*,L,1) - MID*(XST*,L,1) 

THE 

N X-X+1 

<199> 

150 NEXT L 

<ee2> 

152 t 

<i 2 a> 

160 PRINT X|X5T*" "NST* 

<174> 

165 PR>(10O/LEN(NST*))*X 

<075> 

170 IF PR>»70 THEN PRINT ,,PLZ*<KJ" "ST*(K 

);PR"X" 

<081> 

172 1 

<14S> 

175 NEXT M 

<035> 

177 1 

<153> 

IB0 NEXT K 

<024> 

190 : 

<166> 

195 I 

<171> 

1000 DATA B470,NABBURG,5441,NACHTSHEIM 

<058> 

1005 DATA 6509,NACK.6506,NACKENHEIM 

<218> 

1010 DATA B590,NAGEL,7270,NAGOLD,2061, 

4AHE <22i> 

1015 DATA 2121.NAHRENDORF,8674,NAILA 

<213> 

2000 DATA S,e 

<184> 

Listing 23. Das komplette Suchprogramm 



ni 



Ein kleines Beispiel aus diesen Kursen aber will ich hier 
doch zitieren. 

Bei einem Adventure werden bekanntlich vom Spieler 
laufend Befehle eingegeben, die vom Parser dann zerlegt 
und analysiert, das heißt mit den im Spiel vorhandenen 
Wörtern verglichen werden. 

Diese Befehlseingabe besteht im Gegensatz zu unseren 
bisherigen Beispielen aus mehreren Wörtern: 

BE|=" OTTO BITTE NIMM ES" 

Wir wissen natürlich, daß das Verb dieses Satzes das 
Wort »nimm« ist. Der Parser muß das erst feststellen, Dazu 
holt er aus einer im Computer (oder auf der Diskette) ge¬ 
speicherten Verben-Liste der Reihe nach die einzelnen 
Verben und vergleicht sie mit dem Satz BE$. Ich konzentrie¬ 
re mich hier auf den Vergleich, Die Schleifen zum Durchlau¬ 
fen der Listen sind gleich aufgebaut wie in unseren vorigen 
Programmen, 

Auch der direkte Vergleich ist ähnlich wie vorher. 
Nehmen wir an, aus der Liste sei das Verb VG$= "NIMM" 
an der Reihe. Bild 21 zeigt den Suchvorgang. 

Das Programm dazu lautet: 

10 x=o 

20 BE$="OTTO BITTE NIMM ES" 

30 INPUT "WORT EINGEBEN" ;VG$ 

40 FOR 1=1 TO LEN(BE$) 

50 IF VG$=MID5{BE$,I,LEN(VG$)) THENX=1 
60 NEXT I 

70 IFX=0 THEN PRINT "FEHLANZEIGE" 

80 IF X=1 THEN PRINT "WORT GEFUNDEN" 
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Eigentlich ist das nichts Neues. Es ist halt nur ein Wort- 
vergleich, nicht ein absoluter Buchstabenvergleich. Das 
kann man natürlich ausnutzen, um die Suchschleife zu be¬ 
schleunigen, indem die Obergrenze für die Schleifenvaria¬ 
ble I verkleinert wird. Wenn Sie sich Bild 21 anschauen, 
dann werden Sie erkennen, daß das zu suchende Wort spä¬ 
testens in den letzten, seiner Länge entsprechenden Zei¬ 
chen des Satzes auftreten muß. Zeile 40 kann demnach so 
geändert werden; 

40 FOR 1=1 TO LEN(BE$)-LEN(VG$)+1 
Diese Suchmethode kann natürlich auch Wortfragmente 
und Abkürzungen verarbeiten, aber auch Fehler. Im oben 
erwähnten Adventurekurs wird darauf näher eingegangen. 


VG$= 


BES= 


NIMM 


OTTO BITTE 

NIMM 

E E 

NIMM 

1- 

NIMM 

1 

NIMM 


NIMM 

1 

NIMM 

1 

NIMM 

1 

N I H Ml 


N I Ml M 


N II M H 


N 

IHM 


FUNDEN ! — 

NIMM 



NIMM 

NIMM 

NIMM 


Suchvorgang: 
FOR 1=1 TO 
LEN(BE$)- 
LEN(VG$)-H 


s^ei-^ 


Bild 21. Beispiel für einen Suchvorgang durch Wortvergleich 


Ich will zum Schluß mit einer anderen String-Anwendung 
Ihren Spieltrieb fördern. Zum Thema »Chiffrieren« wollen 
wir ein kleines Spiel programmieren. 

Unter Verschlüsseln oder Chiffrieren versteht man das 
Verändern eines Textes derart, daß ein Fremder ihn nicht 
versteht, wohl aber ein Freund, der den »Schlüssel« dazu 
hat. 

Nun, ganz so geheimnisvoll will ich hier nicht vergehen. 
Mein Programmplan sieht so aus: 

1. Spieler Nummer 1 gibt ein Wort in den Computer ein. 

2. Die einzelnen Buchstaben dieses Wortes werden von ei¬ 
nem Zufallsgenerator gesteuert, gegeneinander ver¬ 
tauscht und das so »chiffrierte« Wort wird dem Spieler 
Nummer 2 gezeigt. 

3. Spieler Nummer 2 soll das ursprüngliche Wort erraten. 
Er hat dazu beliebig viele Versuche, kann aber auch eine 
Hilfestellung verlangen. 

Das eingegebene Wort A$ wird zuerst auf die Variable B$ 
übertragen. A$ wird ja durch die Verschlüsselung verän¬ 
dert. Deshalb speichern wir das Original dieses Wortes in 
B$ für den Rate- oder Vergleichsvorgang. Die Länge des 
Wortes ordnen wir der leichteren Lesbarkeit den Variablen 
LA und LBzu. H ist der Zähler für die Anzahl der Hilfestel¬ 
lungen; er wird am Anfang auf Null gestellt. 
65Z=INT{RND(0)»LA)+1 
70 C$=C$+MID$(A$,Z,1) 

4. Zur Hilfestellung werden ihm der erste, beim zweiten Mal 
die ersten beiden Buchstaben und so weiter gezeigt. Da¬ 
durch ist die Zahl der Hilfen natürlich begrenzt. 

Um das Programm einfach zu halten, verzichte ich auf 
Ergebnislisten und andere Feinheiten, die Sie ja selbst 
nach Gutdünken hinzufügen können. 


Zuerst kommt die Eingabe und die Chiffrierung an die 
Reihe: 

35 INPUT ''UORTEINGEBEN'';A$ 

40 B$=A$ 

45 LA=LEN(A?) 

50 LB=LEN(B$) 

55H=0 

Der Zufallsgenerator, der die gewünschte Chiffrierung 
steuert, steht in Zeile 65. Er erzeugt eine ganzzahlige Zu¬ 
fallszahl, die zwischen 1 und der Wortlänge deseingegebe¬ 
nen Wortes A$ liegt. In Zeile 70 erfolgt die eigentliche Chif¬ 
frierung: Es wird ein neuer String C$ aufgebaut. Er wird aus 
seinem alten Wert und jeweils einem neuen Buchstaben: 
gebildet. Dieser String wird per MID$-Befehl ab der vom Zu¬ 
fall bestimmten Stelle aus dem Wort A$ herausgeschnitten. 

Damit ein bereits verwendeter Buchstabe des Strings A$ 
nicht ein zweites Mal benützt werden kann, muß nach je¬ 
dem Schritt dieser Buchstabe aus dem Wort A$ entfernt 
werden. 

75 A$=LEFT$(A$,Z-1)+RIGHT$(A$,LA-Z) 

80 LA=LA-1 

85 IP LA <> 0 THEN 65 
90 PRINT C$ 

Zeile 75 verändert das Wort A$. Es besteht jetzt aus dem 
Teil links vom herausgenommenen Buchstaben (Z-1) und 
aus dem Teil rechts dieses Buchstabens (LA-Z). Bild 22 
zeigt den Zusammenhang. 

Wenn Sie in der Zeile 70 mit Doppelpunkt getrennt noch 
den Befehl 
PRINT C$ 

anhängen und das bisherige Programm starten, sehen Sie 
die Wirkung auf dem Bildschirm. 

Der nächste Programmteil ist einfach. Er beinhaltet nur 
dieAiriMe; e, ob geraten werden soll oder ob Hilfe gebraucht 
wird. Der Antwort entsprechend wird auf bestimmte Pro¬ 
grammteile verzweigt. 

105 PRINT "RATEN ODER HILFE ? (R/H) 

110 GET X$; IF X$= " " THEN 110 
120 IF X$="R" THEN 170 
130IFX$<>"H" THEN 105 


Z>2 

WORT 

LA = 4 


Z=3 

WRT 

LA=3 

0 

Z«2 

WR 

LA-2 

OT 

Z = 1 

W 

LA = 1 

OTR 


— 

U>0 

OTRW 


Bild 22. Die Chiffrierschritte Im Zusammenhang 


Nach der Aufforderung, <R> oder <H> zu drücken, 
wartet Zeile 110 auf einen Tastendruck. Zeile 120 springt 
beim Drücken von < R > auf den Rateteil. Zeile 130 springt 

Wörteimten leichtgemacht 


bei allen anderen Eingaben außer < H > auf die Aufforde¬ 
rung in Zeile 105 zurück und verhindert dadurch falsche 
Eingaben. Ab Zeile 140 beginnt die Hilfestellung. 

140 H=H-(-l 

145 IF H=LB-1THEN 195 
150 PRINT C$,,LEFT$(B$,H) 

160 GOTO 105 

195 PRINT "DAS WORT WAR " 

Da Hilfe in Anspruch genommen wird, wird zuerst der 
Zähler H um 1 erhöht. Wenn die Anzahl der Hilfen das Wort¬ 
ende, hier gegeben durch LB-1 (LA haben wir ja oben dau¬ 
ernd reduziert) erreicht haben, wird das Spiel in Zeile 195 
abgebrochen. 
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Zeile 150 gibt die Hilfestellung. Zuerst wird das chiffrierte 
Wort C$ noch einmal ausgedruckt. Danach werden die 
Buchstaben entsprechend dem Wert von H ausgedruckt, 
Der Sprung auf Zeile 105 wiederholt die Frage nach R oder 
H. Damit ist der Hauptteil des Programms abgeschlossen, 
Jetzt fehlt nur noch der Ratevorgang, 

170 INPUT "WAS RATEN SIE " ;R$ 

175 IF R$<>B$ THEN PRINT "NEIN" :GOTO 105 
180 IF R$=B$ THEN PRINT "RICHTIG" 

In Zeile 170 wird gefragt, welches Wort geraten wird, in 
Zeile 175 folgt der Wortvergleich. Diese Befehle sind aber 
so einfach, daß ich guten Gewissens die Kommentierung 
weglassen kann. 

Das komplette Programm ist in Listing 24 zusammenge¬ 
faßt. 


• Menüs, Tabellen, listen 


Zum Abschluß unseres String-Kurses wollen wir ein Pro¬ 
gramm entwickeln, das sich natürlich ausgiebig auf String- 
Verarbeitungen stützt und außerdem Einblick gewährt, wie 
die in vielen kommerziellen Computerspielen eingebauten 
»Bestenlisten« funktionieren. 

Wie immer werde ich das Programm in einzelnen Schrit¬ 
ten entwickeln. Da Jeder Teil für sich lauffähig ist, können 
Sie wie im Text die einzelnen Programmzeilen eintippen 
und ausprobieren. Ich rate Ihnen nur, die von mir gewählten 
Zeilennummern zu verwenden, da sie im Zusammenhang 
mit dem späteren endgültigen Programm stehen. 

Die Bestenlisten - in englischsprachigen Spielen »High 
Score«genannt-enthalten die besten Ergebnisse, die inein. 
nem Spiel erzielt worden sind. Dabei gibt es drei prinzipiel¬ 
le Unterschiede: 


10 REM*»*** WOERTERRATEN****** 


IS : 

<247> 

20 REM - CHIFFRIEREN-RflTEN - 

<099> 

25 : 

<001 > 

30 PRINT CHR*(I47) 

<059> 

3S INPUT "MORT E1NGEBEN";A« 

<130> 

40 

<174> 

4S LA=LEN(A*) 

<043> 

50 LB=LEN(B4) 

<ia 5 > 

55 H=0 

<240> 

60 ; 

<036> 

6S Z*INT!RND<ei*LA>+I 

<17a> 

70 C*-C*+MID*<A*,Z,1) 

<126> 

75 A»-I.EFT*<A».2-l)+RieHT*<A*,LA-Z> 

<046> 

B0 LA'LA-l 

<149> 

05 IF LAO0 THEN 65 

< 2 ie> 

90 PRINT C* 

< 02 e> 

95 PRINT 

<197> 

100 : 

<076> 

105 PRINT "RATEN ODER HILFE 7 <R/H)" 

<144> 

110 GET X#sIF X»-"" THEN 110 

<1I5> 

US t 

<091> 

120 IF THEN 170 

<162> 

125 : 

<101> 

130 IF X»<>"H" THEN 105 

<0O3> 

135 1 

<111> 

140 H=H+1 

<103> 

145 IF H-LB-1 THEN 195 

<122> 

150 PRINT C»,,LeFT»(B»,H) 

<146> 

153 PRINT 

<001> 

160 GOTO 105 

<248> 

165 1 

<141> 

170 INPUT"WAB RATEN SIE "<R« 

<010> 

175 IF R*<>B* THEN PRINT"NEIN"!GOTO 105 

<I45> 

100 IF R*=B* THEN PRINT "RICHTIG" 

<057> 

190 : 

<166> 

195 PRINT "DAS MORT MAR " B« 

<070 > 

Listing 24. Spiel: Wörterraten mit dem C64 



- die ewige Bestenliste 

- die persönliche Bestenliste 

- die Tages-Bestenliste. 

1. Die ewige Bestenliste beruht darauf, daß der jeweils letz¬ 
te Stand am Ende eines Spieldurchganges auf Diskette 
oder Kassette gespeichert wird. Zu Beginn einer neuen 
Spielrunde wird er geladen und steht für die Eintragung 
neuer Rekorde zur Verfügung. 

2. Die persönliche Bestenliste ist eigentlich eine »ewige« Li¬ 
ste. Das heißt, sie wird auch gespeichert. Sie ist aber im 
Unterschied zu der ewigen Bestenliste so sortiert, daß je¬ 
der Name nur einmal enthalten Ist, natürlich mit dem von 
diesem Spieler erzielten höchsten Ergebnis, 

3. Die Tages-Bestenliste ist identisch mit der ewigen Be¬ 
stenliste, nur wird sie nicht gespeichert, sondern enthält 
lediglich das Ergebnis einer Spielrunde. Sie sehen, es 
dreht sich wieder einmal (fast) alles ums Sortieren. 

Ich zeige Ihnen zuerst ein Beispiel der Bestenliste: 


EWIGE BESTENLISTE 


1, 

FRANZ 

678 


2. 

FRANZ 

567 


3. 

FRANZ 

503 


4, 

WILHELM 

445 


5. 

MARIA 

440 


6. 

WILHELM 

390 


7. 

FRANZ 

377 


8. 

BETTINA 

50 


9. 

MARIA 

33 


10 . 

GABY 

9 


PERSÖNLICHE BESTENLISTE 

1 - 

1. 

FRANZ 

678 


2. 

WILHELM 

445 


3. 

MARIA 

440 


4. 

BETTINA 

50 


5, 

GABY 

9 


6. 




Franz ist also eindeutig der Beste, vielleicht weil er häufig 
spielt. In der ewigen Liste hält er die drei ersten Plätze. Auch 
Maria hat gute Ergebnisse und steht zweimal in der ewigen 
Liste. 

ln der persönlichen Liste dagegen ist jeder der fünf Spie¬ 
ler nur einmal vertreten, natürlich mit seinem besten Ergeb¬ 
nis. 

Damit liegen die Sortiervorschriften eigentlich schon 
fest. 

Ewige Bestenliste: Ein neues Ergebnis wird mit der ersten 
Eintragung In der Liste verglichen. 

Ist es größer, kommt es an dessen Position, alle folgen¬ 
den Werte rücken um einen Platz weiter nach hinten, und 
der Vorgang wiederholt sich mit dem nächsten Wert in der 
Liste. 

Ist es gleich oder kleiner, dann wird sofort der nächste Li- 
slenwert zum Vergleich hergenommen. 

Der Name des Spielers, der dieses Ergebnis erreicht hat, 
wird an dieselbe Position in der Liste gebracht, unabhängig 
davon, wie oft er schon in der Liste steht. Damit kann ein 
Spieler die komplette Liste belegen. 

Persönliche Bestenliste: Ein neues Ergebnis führt zuerst 
zu einer Prüfung, ob der Name des Spielers schon in der 
Liste steht. Ist der Name schon enthalten, wird das neue Er¬ 
gebnis mit dem alten Wert desselben Spielers verglichen. 
Der kleinere Wert wird gelöscht, der größere wird wie oben 
neu einsortiert. 

Ist der Name aber nicht enthalten, wird der Wert wie oben 
der Größe nach einsortiert. 



SONDERHEFT 43 


















Aus diesen Vorschriften, aber auch beim Betrachten der 
beiden Listen wird deutlich, daß wir uns für das Problem der 
Zuordnung von Namen, Platznummern und Ergebnissen 
etwas elnfallen lassen müssen. Allein der Name »Franz« 
tritt mit vier verschiedenen Ergebnissen an vier Positionen 
auf. Das klingt schlimmer, als es ist. 

Zuerst werde ich nur mit zehn Werten arbeiten, also 
können wir uns den DIM-Befehl sparen. 

Das Sortierverfahren 


Ein Sortierverfahren haben wir schon in Teil 5 unseres Kur¬ 
ses entwickelt. Dieses Grundprinzip, das ich »Bäumchen 
wechsle Dich« genannt habe, wenden wir auch hier wieder 
an. Einigen Routinen werden daher in abgewandelter Form 
benutzt. 



Bild 23. Das verwendete Sortierverfahren bildlich als 
Ih^mmel veranschaulicht 

Bei der Liste soll es sich um ein Feld handeln. Sie bein¬ 
haltet die Namen PL(K) - »Punkte-Liste«. Die Liste darf ma¬ 
ximal zehn Werte PL(1) bis PL{10) enthalten. 

Mit diesen Werten soll eine neue Punktzahl, die am Ende 
eines Spiels als Resultat PZ herausgekommen ist, vergli¬ 
chen werden. Anstelle eines Spieles simulieren wir das Er¬ 
gebnis per INPUT-Befehl: 

120 INPUT "RESULTAT-"iPZ 

Bekanntlich wird der Text in Gänsefüßchen hinter dem 
INPUT auf dem Bildschirm ausgedruckt. 

Jetzt bilden wir eine Schleife mit der Variablen K von 1 bis 
10, in der für jeden einzelnen Wert von K geprüft wird, ob 
das Resultat PZ größer als der im Feld stehende Wert PL(K) 
Ist. 

210 FOR K=1 TO 10 

220 IF P2 >PL(K) TUEN .... 

230 NEXT K 
250 GOTO 120 

Ist PZ kleiner oder gleich, fährt die Schleife in Zeile 230 
fort. Am Ende springt das Programm für eine neue Eingabe 
auf Zeile 120 zurück. 

Ist PZ aber größer als der Wert PL(K) in der Liste (Zeile 
220), dann muß etwas passieren. Was passiert, verdeut¬ 
licht Bild 23. 

Dort ist das Feld PL(K) als Trommel dargestellt. Sie hat 
zehn Fächer, die PL(1) bis PL(10) heißen und in denen die 
Ergebnisse stehen. Vor der Trommel steht eine Schachtel 
mit dem Namen PZ, in der das letzte Spielergebnis liegt. 
Unter der Trommel gibt es noch eine zweite Schachtel mit 
Namen A, die vorerst leer ist. 


Die Trommel wird durch die K-Schleife immer um ein 
Fach weitergedreht, und der Fachinhalt wird mit dem Inhalt 
der Schachtel PZ verglichen. Sobald der Inhalt der Schach¬ 
tel -■ In unserem Beispiel die Zahl 55 - größer Ist als der In¬ 
halt des Trommelfaches, fällt dieser zuerst In die leere 
Schachtel A, dann wird der Inhalt der Schachtel PZ in das 
geleerte Trommelfach geschoben, und zuletzt gelangt der 
ehemalige Trommelinhalt in die Schachtel PZ. Dann dreht 
sich die Trommel weiter. 

In Bild 23 ist dies zum erstenmal bei K=8 der Fall, da 
PZ=55 größer als PL(8)=50 ist. Am Ende der »Bäumchen 
wechsle Dich«-Prozedur steht in PL(8) die Zahl 55 und in PZ 
das »alte« PL(8), nämlich 50. 

Dieses Wechselspiel wiederholt sich natürlich bei K=9 
und K*10, Da sich danach die Trommel nicht mehr weiter¬ 
dreht, geht der alte Wert von PL(10)=9 verloren. 

Da diese Positionstauscherei immer wieder vorkommt, 
habe ich sie als kleines Unterprogramm ab Zeile 1100 ge¬ 
schrieben, auf das wir in der noch nicht vollständigen Zeile 
220 springen. 

120 INPUT "RESULTAT»"jPZ 
210 FOR K=1 TO 10 
220 IF PZ >PL(K) THEN GOSUB 1100 
230 NEXT K 
250 GOTO 120 
1100 A=PL(K) 

1110 PL(K)=PZ 
1120 PZ=A 

1160 RETURN 

Übrigens: Eine INPUT-Schleife mit direktem GOTD- 
Rücksprung ist gefährlich. Beim C 64 läßt sich das Pro¬ 


gramm nur mit <RUN/STOP-RESTORE> abbrechen. Da¬ 
her füge ich die Abfragezeile 240 ein: 

240 GET A$:IF A$="" THEN 240 
SchlleBllch wollen wir uns das Resultat dieser Sortierung 
auch anschauen. Wir drucken nach jedem K-Schritt sowohl 
das K als auch den jeweiligen Trommelinhalt aus (Zeile 
225): 

225 PRINT KiPL(K) 

Mit diesem Programmteil können Sie das Auffüllen der 
Liste schrittweise verfolgen. 


100 rem****«*basisprogramm**«*»*»*»» 


102 : 

<078> 

10S REM. EWIGE BESTENLISTE - 

<122> 

107 : 

<083> 

110 INPUT "NAME-iNAS 

<179> 

120 INPUT'RESULTAT ="iPZ 

<236> 

130 : 

<106> 

199 : 

<175> 

210 FOR K»1 TO 10 

<116> 

220 IF P2>PL(K) THEN QOSUB 1100 

<210> 

225 PRINT K:PL(K!:NAS(K) 

<240> 

230 NEXT K 

<074> 

240 GET ASilF A«=''" THEN 240 

<146> 

250 GOTO 110 

<194> 

299 : 

<021> 

1100 AiPLtK) 

<0e4> 

1110 PL(K)=P2 

<147> 

1120 PZ=A 

<206> 

1125 : 

<035> 

1130 BS=NA3(K> 

<084> 

1140 NA$(K)-NA$ 

<^224> 

1150 NAS=BS 

<003> 

1160 RETURN 

s202> 

e 64’er 


Listing 25. So sieht das Basisprogramm aus, 

das bei 

jeder Bestenliste verwendet wird 



Die ewige Bestenliste 
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Dabei fallen folgende Punkte auf: 

- Nach elf Eingaben geht der zehnte Wert verloren. 

- SelbstwennPZ einen Wert enthält, derbereits in der Liste 
vorkommt, wird er trotzdem mit aufgenommen. Die neue 
Eintragung steht hinter dem identischen, schon vorhan¬ 
denen Wert. 

- Wird ein neuer Wert irgendwo vor zwei gleichen Werten 
eingeschoben, vertau¬ 
schen die beiden Zwillin¬ 
ge ihren Platz. Das kommt 
von der Platztauscherei 
dieses Sortierverfahrens. 

Um dies zu vermeiden, 
müßte man eine kompli¬ 
ziertere und umfangrei¬ 
che Methode verwenden, 
deshalb verzichte ich dar¬ 
auf. Es stört ja auch kaum. 

Die Sortiervorschrift er¬ 
zeugt ja bereits die ewige Li¬ 
ste, aber nur für Zahlenwer¬ 
te. Es fehlen dabei die Na¬ 
men. 

Nun. der Vorgang ist ge¬ 
nau derselbe wie vorher, 
nur halt mit Strings statt mit 
Zahlen. Zunächst müssen 
wir den Namen (NA$) des 
Spielers eingeben: 

110 INPUT 'NAME'jNAS 
Was mit dem Namen pas¬ 
siert, zeigt Bild 24. 

Sie zeigt für die Namen 


Als letztes müssen wir noch den Rücksprung der Zeile 
250 umschreiben, denn wir beginnen das Programm jetzt 
mit der Namenseingabe in Zeile 110. 

250 GOTO 110 

Dieser Teil bildet die Basis für weitere Listen {Listing 25). 


Die persönlUhe Bestenliste 


So können wir das Programm als »ewige Bestenliste« (mit 
speichern) oder als »Tagesbestenliste« (ohne speichern) 
verwenden. 

Ganz am Anfang habe ich definiert, was eine »persönli¬ 
che Bestenliste« ist. 

Sie wird zum größten Teil genauso aufgebaut wie die ewi¬ 
ge Bestenliste, aber jeder Spielernamen soll nur einmal 
eingetragen sein. 

Wir beginnen das Programm wie vorher. Dann prüfen wir 
für jede Eintragung in der Namensliste NA$ in einer Schlei¬ 
fe mit zehn Schritten, ob der neue Spielernamen NA$ 
schon vorkommt. 



eine zweite Trommel, die Bild 24. Um beim Sortieren die Namen zu berücksichtigen, ist eine weitere IVommel 
aber mit der ersten Trom- erforderlich. Sie Ist mit der ersten TVommel fest verbunden 
mel fest verbunden ist und 


dadurch auf die gleiche Art und Weise gedreht wird. Immer 
dann, wenn eine Zahl PL(K) ausgetauscht wird, wird auch 
der dazugehörige Name NA$(K) ausgetauschf, und zwar 
mit derselben Methode. Auch vor dieser Trommel steht eine 
Schachtel NA$, die den Namen des Spielers enthält und ei¬ 
ne zweite leere Schachtel B$, die zum Platztauschen ver¬ 
wendet wird. 

Folglich müssen wir nur die zweite Trommel programmie¬ 
ren. Sie folgt auf die erste Trommel hinter Zeile 1120: 

1130 B$=NA$(K) 

1140 NA$(K)=NA$ 

1150 NA$=B$ 

Der RETURN-Befehi ist überflüssig. Er steht ja noch in 
Zeile 1160. Damit die durch diese Erweiterung des Unter¬ 
programms erzeugte Namensliste NL$(k) auch sichtbar 
wird, ist der PRINT-Ausdruck in Zeile zu 225 zu erweitern: 
225 PRINT KjPL(K)jNA$(K) 


150 FOR K*1 TO 10 

160 IF NA$=NA?(K) THEN - 

180 NEXT K 

Wenn der Name nicht überefnstimmt, läuft die Schleife 
weiter. Was passiert aber, wenn in Zeile 160 festgestellt 
wird, daß der Name schon in der Liste steht? Nun, dann 
kommt es als nächstes darauf an, ob das neue Spielergeb¬ 
nis PZ größer oder kleiner ist als der alte Wert PL(K). 

Ist er kleiner oder gleich, dann kann man ihn »verges¬ 
sen«, indem man ihn auf 0 setzt. So stört er nicht weiter. 
160 IF NA$=NA$(K) AND PZ <=PL(K) THEN PZ=0 

Ist er aber größer, dann muß er an die Stelle des alten 
Wertes gesetzt werden. Das geht am elegantesten da¬ 
durch, daß der alte Wert PL(K) samt seinem Spielernamen 
gelöscht und dann mit der Vergleichsschleife ab Zeile 210 
am richtigen Platz eingesetzt wird. 

170 IF NA$=NA$(K) AND PZ >PL(K) THEN PL(K) = 
0:NA$(K) = '"' 
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210 FOR K=1 TO 10 

220 IF PZ >PL(K) THEN GOSUB SOO 

und so weiter. 

Sie sehen, die beiden Listentypen unterscheiden sich 
nur durch die Zeilen 150 bis 180. 

Das Programm für die persöniiche Besteniiste ist in Li- 
sting 26 komplett dargestellt. 

in einem Spiel angewendet, könnten wir beide Pro¬ 
grammteile hintereinanderhängen. 

Die Sache hat aber zwei Haken; 

- Im Lauf der Schleifen und durch das Platztauschen im 
Unterprogramm verändert sich das ursprüngliche Ergeb¬ 
nis PZ, bis es zusammen mit dem Namen des Spielers 
verschwunden ist. Sie stehen also für die zweite Liste 
nicht mehr zur Verfügung. 

- Wenn wir die zweite Liste ausrechnen und auf dem Bild¬ 
schirm ausdrucken, geht die erste Liste verloren, da sie 
ja dieselben Variabiennamen hat. 

Zur Lösung des ersten Problems müssen wir das Ergeb¬ 
nis und den Spielernamen ganz am Anfang unter anderen 
Variablennamen speichern. 

Ich wähle SN$ für den Spielernamen und RE für das Re¬ 
sultat. In Zeile 140 werden die beiden Werte den »alten« Va¬ 
riablennamen zugeordnet. 

110 INPUT "NAHE"iSN$ 

120 INPÜT "RESULTAT"';RE 
140 NL$=SN$:PZ=RE 


Zur Erinnerung 


1. Ein eindimensionales Feld (englisch: array) Ist eine Liste von Varia¬ 
blen desselben Namens, die mH nur einem >lndex>durchnumerlert 
sind - zum Beispiel neun Variable A(0) bis A(8). 

2. Ein zweidimensionales Feld hat für jede Variable zwei 'Indizes«, 
zum Beispiel 18 Variable A(0,0) bis A(8.1). 

3. Für ein mehrdimensionales Feld werden pro Index 11 Plätze reser¬ 
viert. 


Ewige Liste 

Persönliche Liste 

Tagea-Liste 

Punkte PL(K,0) 

PL(K,1) 

PL(K,2) 

Namen NAS(K,0) 

NA$(K,1) 

NA5(K,2) 


210 FOR K=1 TO 10 

220 IF PZ >PL(K,F) THEN GOSUB 1100 
225 PRINT K;PL(K,F);NA$(K,F) 

230 NEXT K 

240 GET A$: IF A$="" THEN 240 
250 GOTO 110 
1100 A=PL(K,F) 

1110 PL(K,F)=PZ 
1120 PZ=A 

1130 B$=NA$(K,F) 

1140 NA$(K,F}=NA$ 

1150 NA$=B$ 

1160 RETURN 

Ich habe vorher schon betont, daß die ewige Bestenliste 
sich von dem obigen Programm nur dadurch unterschei¬ 
det, daß die Fiagge in Zeiie 130 auf F*1 stehen muß, und 
daß die Prüfung der Zeilen 150 bis 180 wegfäilt. Alles ande¬ 
re bleibt gleich. 


Zur Dimensionierung größerer Felder steht der DIM-Be- 
fehi (in der Form DIM(15,12) zur Verfügung. 

Als zweidimensionale Felder sehen unsere Bestenlisten 
inklusive der bisher noch nicht behandelten Tages-Besten- 
liste jetzt so aus; 



Die Tages-Bestenliste schließlich ist identisch mit der 
ewigen Bestenliste, nur wird sie nicht gespeichert. 

Auffällig ist, wie ich meine, daß nicht nur das Unterpro¬ 
gramm ab Zeile 1100 in allen drei Listen vorkommt, sondern 
auch der Sortierblock der Zeilen 210 bis 250. Programm- 
technisch bietet sich daher an, diesen Teil ebenfalls als Un¬ 
terprogramm auszulegen. Ich siedle es ab Zeile 1000 an 
und versehe es mit der Rücksprungzeile 1030. 

1030 RETURN 

Nun ist nur noch ein Sprung auf dieses Unterprogramm 
erforderlich: 

190 GOSUB 1000 


Sie sehen, die Namen der Variablen und der erste Index 
K, der bislang für die zehn Plätze in der Liste immer von 
1 bis 10 gelaufen ist, sind gleich geblieben. 

Neu ist der zweite Index, der den Listentyp kennzeichnet. 
Ist er 0, handelt es sich um die ewige Bestenliste, 1 oder 2 
kennzeichnen die beiden anderen Listen. Der zweite Index 
erhält wie der erste einen Namen; ich nenne ihn F (für Flag¬ 
ge). Immer wenn die Fiagge F auf einen der drei Werte 0,1 
oder 2 gesetzt ist, ist festgelegt, um weiche Bestenliste es 
sich Im folgenden handelt. 

Das Programm der persönlichen Bestenliste sieht so 
aus: 

110 INPUT "NAME";SN$ 

120 INPOT "RESULTAT=';RE 
130 F=0 

140 NL?=SN$:PZ=RE 
150 FOR K=1 TO 10 

160 IF NA$"M$(K,F) AND PZ <= PL(K,F) THEN P2=0 
170 IF NA$=NA$(K,F) AND PZ >PL(K,F) THEN PL(K,F)= 
0:NA$(K,F) = " 

180 NEXT K 


Menü-Auswahl 


Um die Verwendung der Bestenlisten so bequem wie mög¬ 
lich zu machen, muß es möglich sein, sie nach Belieben 
auszudrucken, nach einem Spiel zu speichern oder vor ei¬ 
nem Spiel einzuladen. Dabei sollte die Bedienung einfach 
gehalten sein. 

Dazu dient ein »Menü«. Wir wollen deshalb für die Be¬ 
stenlisten ein solches Menü entwerfen, wobei ich vor¬ 
schlage: 

- NEUES SPIEL 

- EWIGE BESTENLISTE DRUCKEN 

- PERSÖNLICHE BESTENLISTE DRUCKEN 

- TAGESBESTENLISTE DRUCKEN 

- SPEICHERN DER LISTEN 

- LADEN DER LISTEN 
-ENDE 

Der nun folgende Programmteil sorgt dafür, daß dieses 
Menü auf dem Bildschirm erscheint. 
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20 PRINT CHR$(l47) CHR5(17) CHR$(17) TAB(IO) "MENUE" 
25 PRINT:PRINT:PRINT= NEUES SPIEL" 

30 PRINT:PRINT "E = EWIGE BESTENLISTE DRUCKEN" 
35 PRINT:PRINT "P = PERSOENLICHE BESTENLISTE 

DRUCKEN" 

40 PRINT:PRINT "T = TAGESBESTENLISTE DRUCKEN" 

45 PRINT:PRINT "S = SPEICHERN DER LISTEN" 

50 PRINT:PRINT "L = LADEN DER LISTEN" 

55 PRINT:PRINT "Q = ENDE" 


Hier ist eigentlich nur anzumerken, daß eine Leerzeile 
sowohl mit dem Befehl PRINT CHR$(17)als auch mit einem 
PRINT-Befehl ohne weitere Angaben erzielt werden kann. 


Beachten Sie auch bitte die Leerstellen innerhalb der Gän¬ 
sefüße. Ohne sie würde derText am Bildschirmrand kleben. 


Zur Erinnerung 

1. Durch den Befehl PRINT CHR$() wird das Zeichen ausgedruckl, 
dessen ASCII-Codezahl zwischen den Klammern steht. 

2. Steht in der Klammer die ASCII-Codezahl eines Steuerzeichens 
(zum Beispiel CURSOR-UP), dann wird seine Funktion ausgeführt. 

3. Eine Tabelle aller ASCII-Codezahlen ist In den Commodore-Hand- 
bOchern als Anhang enthalten (siehe auch Tabelle 2 in Teil 1 dieses 
Kurses). 


Nach dem Ausdruck des Menüs auf dem Bildschirm soll 
nun der Benutzer eine der sieben Möglichkeiten durch Ein¬ 
tippen des vorgestellten Buchstabens auswählen. 

Dazu fordern wir ihn in Zeile 60 auf und warten mit dem 
GET-Befehl: 


Die Sprungadressen hinter dem GOTO sind also wieder 
identisch mit den Sprungadressen der IF-THEN-Zeilen. 

Vor dieser Zeile 95 müssen jetzt für X die Zahlen 1,2, 3, 
4,5,6 oder 7 erzeugt werden, je nachdem, welcher der sie¬ 
ben Buchstaben des Menüs gewählt worden ist. 

Das bewerkstelligen wir mit einem, wie ich finde, sehr 
eleganten String-Trick. 

String-Hilfe für ON-GOTO 


Ich schreibe den Programmteil erst einmal hin und erkläre 
ihn anschließend: 

70 GET A$:IF A$="" THEN 70 
75 FOR X=1 TO 7 

80 IF A$=MID$("NEPTSLQ",X,1) THEN 95 
85 NEXT X 
90 GOTO 20 

95 ON X GOTO 110,400,500, 

600,700,800,900 

Die Zeile 70 haben wir schon gehabt. Sie wartet auf die 
Eingabe eines der sieben Buchstaben des Menüs. Auch 
die Zeile 95 mit dem ON-GOTO-Befehl habe ich schon be¬ 
schrieben. 

Der eigentliche Pfiff liegt in der Abfrage-Zeile 80, die 
durch die X-Schleife siebenmal durchlaufen wird. 

Bei jedem Durchlauf wird mit dem MID$-6efehl aus dem 
künstlichen String, den wir aus den sieben Anfangsbuch¬ 
staben des Menüs »NEPTSLQ« gebildet haben, jeder 
Buchstabe einzeln herausgeschnitten. 


60 PRINT SPC(180) "BITTE WAEHLEN' 

70 GET A$: IF A$="" THEN 70 

Diesmal habe ich den SPC-Befehl verwendet, um den 
Cursor vier Zeilen tiefer (160 Leerstellen) plus 20 Stellen 
nach rechts zu positionieren. 

So, jetzt müssen wir abfragen, welcher der sieben Buch¬ 
staben eingegeben worden ist. Die einfachste Methode bie¬ 
tet der IF-THEN-Befehl: 

75 IF A$="N" THEN 110 
80 IF A$="E" THEN 400 
85 IF A$="P" THEN 500 
90 IF A$="T" THEN 600 
95 IF A$="S" THEN 700 
100 IF A$="L" THEN 800 
105 IF A$="Q" THEN 900 

Die erste Sprungadresse kennen Sie aus unserem bis¬ 
herigen Programm. Die Zellennummern 400 bis 900 gibt es 
noch nicht; dort werden wir die Programmteile für »Druk- 
ken, Laden und Speichern« ansiedeln. 

Die vielen IF-THEN-Abfragen lassen sich eleganter mit 
dem ON-GOTO-Befehl ersetzen. Sie sind mit dem ON- 
GOTO-Befehl nicht vertraut? Dann lesen Sie den nächsten 
»Erinnerungskasten«. 


Zur Erinnerung 


1. Oer Befehl ON-GOTO wird so geschrieben: ON Variable GOTO 
mehrere Zellennummern, wobei die Zeilennummern durch Kom¬ 
mata getrennt sein müssen. 

2. DerWert der Variablen, die hinter demON steht, legt fest, auf wel¬ 
che der hinter dem GOTO folgenden Zeilennummern verzweigt 
wird. 

3. EntsprlchtderVarlablenwert keiner ganzen Zahl (zum Beispiel 1,5), 
dann verzweigt der GOTD-Befehl auf die Zeilennummer, die ent¬ 
steht, wenn man die Nachkommastellen abschneidet (also Im Bei¬ 
spiel auf die Zelle mit der Nummer 1). 


Der die IF-THEN-Abfragen ersetzende ON-GOTO-Befehl 
sieht folglich so aus: 

95 ON X GOTO 110,400,500,600,700,800,900 


Zur Erinnerung 


:1'.,^«^‘:ring-BefehlMID$(XS,B,A) schneidet vom String XS von links 
her ab dem B-ten Zeichen Insgesamt A Zeichen heraus und bildet 
daraus einen neuen String. 

2. MID$("MENUE',3,2) erzeugt demnach den neuen String »NU*. 

3 . Bei MIDS kann die zweite Zahl A weggelassen werden. Dann wird 
ab dem B-ten Zeichen der Rest des Strings X$ herausgeschnitten. 


Tritt eine Übereinstimmung mit dem eingetippten Buch¬ 
staben A$ auf, gilt der zugehörige Wert der Schleifenvaria¬ 
blen X als Variablenwert für den ON-GOTO-Sprung. 

Dieser letzte Satz klingt derartig theoretisch, daß ich ihn 
mit einem Beispiel verständlich machen will. 

Angenommen, Sie wollen die Tages-Bestenliste aus- 
drucken und wählen daher den Buchstaben T. Beim ersten 
Durchgang der Schleife (X=1) schneidet der MID$-Befehl 
ab dem X-ten, also ab dem ersten Zeichen des Strings 
»NEPTSLQ« ein Zeichen heraus - es ist das N - und ver¬ 
gleicht es mit dem eingegebenen Buchstaben T. Wir se¬ 
hen, daß erst beim vierten Durchlauf, also bei X=4, der her¬ 
ausgeschnittene Buchstaben identisch mit dem vorher 
ausgewählten Buchstaben T ist. Das Programm verzweigt 
durch Erfüllung der Abfragebedingung aus der Zeile 80 in 
die Zeile 95 und verwendet dort den Wert 4 für X. Dadurch 
springt der ON-GOTO-Befehl auf die vierte Zeilennummer 
hinter dem GOTO. Das ist die Zeile 600, in der in der Tat der 
Programmteil für das Ausdrucken der Tages-Bestenliste 
beginnen soll. 

Ausdruck der Listen 


Bisher haben wir alle drei Bestenlisten gleich beim Einsor- 
tieren eines neuen Ergebnisses ausgedruckt, und zwar mit 
Hilfe der Zeile 225, die später im Unterprogramm zur Zeile 
1015 wurde. 

Von dort nehmen wir sie jetzt heraus, weil wir erstens das 
Ausdrucken über das Menü als Unterprogramm anwählen 
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wollen und weil zweitens das Format der Listen bislang äu¬ 
ßerst primitiv war, 

Unter einer »schönen« Liste stelle ich mir folgendes For¬ 
mat vor: 


1. 

BEATE 

765 

2. 

FRANZ BERGH 

98 

3. 

XAVER 

62 


und so weiter 

9. 

HELENE 

12 

10. 

FRANZ MAIER 

9 


Dieses Listenformat stellt bestimmte Anforderungen: 

1. Die Platzzahlen links sind nach dem Punkt ausgerichtet, 

2. die Ergebnisse sind nach dem rechten Rand ausgerich¬ 
tet, 

3. die Länge der Spielernamen ist begrenzt auf zwei Stel¬ 
len vor dem größten Ergebnis (das natürlich immer als 
erste Zahl in einer Ergebnisliste steht). 

Das werden wir jetzt programmieren. 

1. Forderung: Zuerst wird die Positionsnummer mit nach¬ 
folgendem Punkt ausgedruckt: 

1210 FOR K=1 TO 10 
1230 PRINT TAB(2) Kj 
1240 PRINT "j 
1280 NEXT K 

Mit diesen Zeilen würde die Zahl K (1 bis 10) zwei Stellen 
vom linken Rand entfernt geschrieben werden, Um aber 
die Zahlen auf den Punkt auszurichten, verwenden wir fol¬ 
genden String-Trick: 

1220 J=1:IF K>9 THEN J=2 

1230 PRINT TAB(2) HID$(STR${K),J); 

In Zeile 1230 wandeln wir mit dem STR$-Befehl die Zahl 
K in einen String um, wobei der STR$-Befehl die Vorzei¬ 
chenstelle beibehält. STR$(5) ergibt demnach einen zwei 
Zeichen umfassenden String mit, STR$(15) einen rriitdr®* 
Zeichen. 

Der MID$-Befehl vor dem STR$-Teil schneidet diesen 
neuen String ab der Stelle ab, der durch J angegeben ist. 
Aus Zeile 1220 sehen wir, daß J für die Werte von K=1 bis 
9 gleich 1 ist; ab K=10 ist J aber 2. 

Mit anderen Worten: die Zahlen 1 bis 9 werden mit ihrer 
(leeren) Vorzeichenstelle gedruckt, die Zahlen 10 bis 99 oh¬ 


100 REH»'» PERSOENLIOHE BESTENLISTE«» 

102 : 

<078> 

105 REM-- PERSOENLICHE BESTENLISTE — 

<223> 

107 : 

<0e3> 

110 tNPUT "NAME''iNLS 

<011> 

120 INPUT'EESULTAT =";PZ 

<236> 

130 : 

^10S> 

150 FOR K=1 TO 10 

<056> 

160 IF NLS=NLS(K) AND P2<=PL(K) THEN PZ=0 
170 IF NLS:NLS(K) AND P2>PL(K) THEN PL(K)s 

■:195> 

0;NLS(K>':" •' 

<111> 

160 NEXT K 

<,024> 

199 : 

<175> 

210 FOR X:1 TO 10 ' 

•;n6> 

220 IF PZ^PL(K) THEN GOSUB 1100 

<210> 

225 PRINT KiPL(K);NLS(K) 

<ie 0 > 

230 NEXT K 

<074> 

240 GET AS'IF A$="" THEN 240 

<146> 

250 GOTO 110 

<194> 

299 : 

<021> 

1100 A=PL(K) 

<084> 

1110 PL(K)5P2 

<147> 

1120 PZ^A 

<206> 

1125 ; 

<08S> 

1130 B$=NLS(K) 

<023> 

1140 NL$(X)=NLS 

<100> 

1150 NL*=BS 

<091> 

1160 RETURN 

i202> 

® 64’er 

Listing 26. Oie persönliche Bestenliste erzeugt dieser 

Programmteil, der sich auch In eigenen Programmen 
verwenden läßt 


ne diese Vorzeichenstelle. Beide sind also immer zwei Stel¬ 
len lang. Dadurch kommt der Punkt, den Zeile 1240 druckt, 
immer an dieselbe Stelle. 

Vorsicht: Der Trick geht natürlich nicht mehr bei dreistelli¬ 
gen Zahlen. 

2. Forderung: Wenn die Ergebnisse PL(K,F) mit einem 
TAB(20) versehen ausgedruckt würden, stünden sie mit ih¬ 
rem linken Rand ausgerichtet ®uf dem Bildschirm. Die 
rechte Ausrichtung erzielen wir dadurch, daß wir von dem 
TAB-Wert, der den rechten Rand darstellen soll, die jeweili¬ 
ge Länge des Ergebnisses abziehen. Dazu muß. so wie vor¬ 
her, die Zahl PL(K,F) in einen String umgewandelt werden 

- STR$(PL(K,F)) -. 

Davon errechnen wir die Länge mit 

- LEN(STR$(PL(K,F))). 

Der komplette TAB-Befehl sieht dann so aus: 

- TAB(20-LEN(STR$(PL(K,F)))) -. 



123456 

789012.345 

‘.7890 

1.2 


.1. , -- 

vlAME-1- 

"4321 



-- 10 .- 

NiAME-2- 

-■375 





•-LZ-» 





^ 






Bild 25. Die formatierte Ausgabe der Bestenliste 


Beachten Sie bitte die Klammern! Es müssen immer so 
viele Klammern geschlossen werden, wie vorher geöffnet 
vwirde^^nd - in unserem Fall sind es vier! 

1270 PRINT TAB(20-LEN(STR$(PL(K,F)))); PL(K,F) 

Erst nach dem TAB-Ausdruck kommt der eigentliche 
PRINT-Befehl. 

3. Forderung: Wir wollen vermeiden, daß allzu lange Na¬ 
men das Ergebnis von dem vorher so sorgfältig angeordne- 
ten Platz verdrängen. Wie das geht, zeigt uns Bild 25. 

Links wird der Name durch die Positionszahl begrenzt; in 
unserem Beispiel beginnt er immer ab der siebten Stelle. 

Rechts ist er begrenzt vom Rand bei TAB(20), abzüglich 
der Länge LZ des größten Ergebnisses, welches natürlich 
immer an erster Position der Liste steht. Demnach stehen 
für den Namen maximal 20-6-LZ Stellen (siehe Bild 25) zur 
Verfügung. 

Die Länge LZ bestimmen wir mit derselben Methode wie 
vorher in Zeile 1250. Den ersten Index fixieren wir auf 1 (für 
die erste Position), der zweite bleibt wie gehabt auf der 
Flagge F. 

1250 LZ=LEN(STR$(PL(1,F))) 

Mit dem LEFTS-Befehl schneiden wir von links her vom 
Namen NL$(K,F)die oben ausgerechnete maximale Länge 
(20-6-LZ) ab und drucken ihn aus: 

1260 PRINT LEFT$(NL$(K,F),l4-LZ)j 

Den Abschluß bildet eine Wartezeile und ein RETURN- 
Befehl; 

1290 GET A$:IF A$='"' THEN 1290 
1295 RETURN 

Die Zeile 1290 läßt uns in aller Ruhe das Werk genießen. 

Die Zeile 1295 wird notwendig, da ich diesen Programm¬ 
teil, der ja beim Ausdrucken jeder Liste vorkommt, eben¬ 
falls als Unterprogramm vorsehe. Wichtig ist dann nur, daß 
in den Abschnitten ab 400,500 und 600 zuerst die richtige 
Flagge F gesetzt und dann mit GOSUB1200 auf das Druck- 
Unterprogramm gesprungen wird. 

Diese ganze Anordnung können Sie im endgültigen Li- 
sting 27 wiederfinden. 
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5 REM««»** «««*««*«**»«*«***«««««««« 

<059> 

605 : 

<073> 

6 REM******* BESTENLISTEN «***«**»* 

<iie> 

610 F=2 

<055> 

7 REM***********«*»«**«*«**«»***««» 

<061> 

620 PRINT CHRSf147):PRINT 

<103> 

6 : 

<240> 

630 PRINT TABOj'TAGES'BESTENLISTE" 

<233> 

la DIM PL<6a.2),NL»(60,2) 

<156> 

640 PRINT 

<234> 

14 : 

<246> 

650 GOSUB 1200 

<130> 

15 REM-MENUE- 

<095> 

660 GOTO 20 

<0e2> 

16 : 

<246> 

699 : 

<167> 

20 PRINT CKES(147) CHR$(17) CHR$(17) TABd 


700 REM. SPEICHERN DER LISTE - 

<174> 

0)"MENUE" 

<172> 

705 : 

<173> 

25 PRINT:PRINT:PRINT "C2SPACE>N = NEUES SP 


710 OPEN 1.8,3,"TAB.,S,W" 

<008> 

lEL" 

<199> 

720 FOR Ksl TO 60 

<24g> 

30 PRINT:PBINT "C2SPACE>E = EWIGE BESTENLI 


730 IF NL$(K,0)=""THEN NL$<K,0)s"." 

<175> 

STE" 

<0eg> 

740 IF NL*<K,1)=""THEN NL$(K.1" 

<219> 

35 PE1NT:PRINT "C2SPACE>P = PEBBOENLICHE B 


750 PRINT»!,NLS(K,0):PRINT«!,NLS<K.1) 

<228> 

ESTENLISTE" 

<092> 

760 PRINTBl,STR$(PLtK.0)):PRINT»!,STRS{PL( 


40 PRINT:PRINT "C2SPACE>T s TAGESBESTENLIS 


K.D) 

<241> 

TE" 

<211> 

770 NEXT K 

<108> 

45 PR1NT:PRINT "C2SPACE5S = SPEICHERN DER 


780 CLOSE 1 

<029> 

LISTEN" 

<141> 

790 GOTO 20 

<214> 

50 PRINT:PRINT "C2SPACEDL = LADEN DER LIST 


799 : 

<013> 

EN" 

<038> 

800 REM- LADEN DER LISTEN - 

<103> 

55 PRINT:PRINT "C2SPACEDQ = ENDE" 

<123> 

805 : 

<019> 

60 PRINT SPC<180) "BITTE BAEHLEN" 

<184> 

810 OPEN 1,8.4."TAB..S.R" 

<229> 

65 PRINT:PRINT 

<017> 

820 FOR K=1 TO 60 

<09S> 

70 GET A$:1F A$="" THEN 70 

<in> 

830 INPUT#1,NLS{K.0):IF NLS(K,0 )=" ."THEN N 


75 FOR X=1 TO 7 

<040> 

L$(K.0)="" 

<201> 

B0 IF AS-MIDS("NEPTSLQ",X.l) THEN 95 

<211> 

840 INPÜT«1,NL3(K.1):IF NLS(K,1 )=" ."THEN N 


85 NEXT X 

<033> 

L«(K,1)="" 

<255> 

90 GOTO 20 

<020> 

850 INPÜT»1,PLS(0),PLS<1> 

<159> 

95 ON X GOTO 110,400.500,600,700.800,900 

<121> 

860 PL(K.0)=VAL(PL$t0)> 

<202> 

99 : 

100 REM - NEUES SPIEL- 

<075> 

<099> 

870 PL(K.1)=VAL(PL$<1)> 

880 NEXT K 

<085> 

<218> 

102 : 

<078> 

890 CLOSE 1 

<139> 

110 INPUT "NAME'iSNS 

<047> 

895 GOTO 20 

<063> 

120 INPUT-RESULTAT =":RE 

125 : 

<216> 

699 : 

<113> 

<1S2> 

<101> 

yiäB KtM“ brliS.L-BND£ 

130 F=0:REM - PERSOENLICHE LISTE - 

<211> 

905 : 

<119> 

133 : 

<109> 

910 END 

<150> 

140 NL$=SN$:PZ=RE 

150 FOR K=1 TO 60 


- I^^^M******************************** 

<026> 

<209> 

160 IF NL$=NL«(K,F) AND PZ<=PL(K.F) THEN P 


996 REM******* UNTERPROGRAMME »**♦*«*** 

<101> 

Z=0 

<229> 

997 : 

<211> 

170 IF NL$=NLS(K,F) AND PZ>PL(K.FJ THEN PL 


998 REM . — SORTIEREN 1 - 

<072> 

(K.F)=0:NL$(K.F)-‘'" 

<153> 

999 : 

<213> 

180 NEXT K 

<024> 

1000 FOR K=1 TO 60 

<019> 

190 GOSUB 1000 

<146> 

1010 IF P2>PL<K,F) THEN GOSUB 1100 

<047> 

199 : 

<175> 

1020 NEXT K 

<102> 

230 F=1:EEM - EWIGE BESTEN-LISTE - 

<250> 

1030 RETURN 

<072> 

233 : 

<209> 

1097 : 

<057> 

240 NLS=SN$:PZ=RE 

<143> 

1096 REM - SORTIEREN 2- 

<ia 2 > 

250 GOSUB 1000 

<208> 

1099 : 

<059> 

299 : 

<02l> 

1100 A=PL<K.F) 

<135> 

330 F=2:REM- TAGES-BESTEN-LISTE . 

<005> 

1110 PL(K.F>=P2. 

<187> 

333 ; 

<055> 

1120 PZ=A 

<206> 

340 NLS=SNS:PZ:RE 

<245> 

1125 : 

<0e5> 

350 GOSUB 1000 

<052> 

1130 BS>NL«:K.F’ 

<231> 

360 GOTO 20 

<036> 

1140 NL$(K.F)=NLS 

<09e> 

399 : 

<121> 

1150 NLS=BS 

<091> 

400 REM'— DRUCXEN DER EWIGEN LISTE —• 

<024> 

1160 RETURN 

<202> 

405 : 

<127> 

1199 : 

<158> 

410 F=1 

<093> 

1200 REM - DRUCKEN DER LISTEN - 

<217> 

420 PRINT CHR$<147 ): PRINT 

<157> 

1205 : 

■C165> 

430 PRINT TAB(3)"EWlaE BESTENLISTE" 

<044> 

1210 FOR K=1 TO 60 

<231> 

440 PRINT 

<032> 

1215 IF K/'21 = INT(K/21) THEN GET AS:IF A$=" 

450 GOSUB 1200 

<1S4> 

" THEN 1215 

C002> 

460 GOTO 20 

<136> 

1220 jsl : IF K>9 THEN J=2 

<239> 

499 : 

<221> 

1230 PRINT TAB(2) MID$(STRS(K).J ) i 

<227> 

500 REM-" DRUCKEN DER PERSON.LISTE ™ 

<189> 

1240 PRINT" . ■' i 

<075> 

505 : 

<227> 

1250 LZ=LEN(STRS(PL{1,F)>) 

<110> 

510 F=0 

<177> 

1260 PRINT LEFT*(NL$(K,F).14-LZ); 

<213> 

520 PRINT CHRS<147):PEINT 

<003> 

1270 PRINT TAB(20-LENCSTRS<PL<K,F)))):PL(K 


530 PRINT TAB(3)"PERS0ENL. LISTE" 

<253> 

,F) 

■;227> 

540 PRINT 

<134> 

1280 NEXT K 

<110> 

550 GOSUB 1200 

<030> 

1290 GET AStIF AS=""TKEN 1290 

<201> 

560 GOTO 20 

<230> 

1295 RETURN 

<0a3> 

599 : 

<067> 


600 REM'— DRUCKEN DER TAGES LISTE — 

<111> 

@ 64'er 


LIsting 27. Das komplette Programm zur Erstellung aller In diesem Kursteil besprochenen Bestenlisten 
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Zur Erlnnerurtg 


Der Befehl STRS(X} bildet aus dem Wert der Zahl X einen String, 
Dieser String behält die Vorzelchenstelle von X als Leerstelle. 


Jetzt fehlen nur noch die Programmteile für das Laden 
und Speichern der ewigen Bestenliste und der persönli¬ 
chen Bestenliste. Wie schon gesagt, wird die Tagesbesten¬ 
liste nicht gespeichert. 

Das Prinzip, eine Liste auf Band oder Diskette zu spei¬ 
chern, gehört eigentlich nicht in einen String-Kurs, Es Ist 
übrigens auch in Kurzform im Basic-Kurs des Sonderheftes 
40 (ab Seite 96) beschrieben worden. 

Ich gehe hier nur auf die String-Befehie näher ein. 

Speichern einer Liste 


Unsere Listen werden als »sequentielle Datei» unter dem 
freigewählten Namen »TAB.« gespeichert. 

710 OPEN 1,8,3,'TAB.,S,M" (auf Diskette) 

710 OPEN 1,1,1,"TAB.' Uuf Kassette) 

720 FOR K=1 TO 10 

750 PRINT#1,NL$(K,0):PRINT#1,NL$(K,1) 

Nach dem OPEN-Befehl werden die Namen mit dem 
PRINT#-Bef6hl gespeichert, wobei die beiden Listenty¬ 
pen (F=0,F=1) getrennt behandelt werden. 

Ein Problem kann dabei auftreten, wenn ein Name eine 
Leerstelle enthält (zum Beispiel Franz Obermaier). Diese 
Leerstellen müssen künstlich mit einem Zeichen gefüllt 
werden, das dann später beim Laden wieder zu entfernen 
ist. 

730 IF NL$(K,0) = '" THEN NL$(K,0) = '." "' 

740 IF NL$(K,1) = " THEN NL${K,1) = '." 

Eine zweite Forderung ist, da6 auch die Zahlen PL(K,F) 
als Strings gespeichert werden müssen. Wie das geht, ha¬ 
ben wir schon vorher erarbeitet: 

760 PRINT#1,STR$(PL(K,0)) :PRINT#1,STR$(PL(K,1)) 
770 NEXT K 
780 CLOSE 1 
790 GOTO 20 

In Zeile 760 setzen wir den STR$-Befehi wieder ein. Zeile 
770 beschließt die Schleife, Zeile 790 verzweigt zurück in 
das Menü. 

Auf Band oder Diskette gespeicherte Listen lassen sich 
mit der umgekehrten Reihenfolge des Speicherns wieder 
in ein Spiel holen. 

810 OPEN 1,8,4,'TAB.',S,R' (für Diskette) 

810 OPEN 1,1,0,'TAB." (für Kassette) 

820 FOR K=1 TO 10 

Nach dem OPEN-Befehl werden die gespeicherten 
Strings in derselben Reihenfolge wie beim Speichern mit 
dem INPUT#-Befehl eingelesen. 

830 INPUT#1,NL$(K,0) 

840 INPUT#!,NL$(K,1) 

Dabei müssen aber die in Punkte umgewandelten Leer¬ 
stellen wieder zurückgewandelt werden. Die beiden Zeilen 
werden daher erweitert zu: 

830 INPUT#1,NL$(K,0): IF NL$(K,0) = "." 

THEN NL$(K,0)»" 

840 INPUT#1,NL$(K,1): IF NL$(K,l) = '." 

THEN NL$(K,1) = " 

Dann kommen die in Strings verwandelten Zahlen unter 
irgendeinem Namen an die Reihe. Ich nehme einfach 
PL$(0) und PL$(1). 

850 INPUT#1,PL$(0),PL$(1) 

Diese Strings werden jetzt mit dem VAL-Befehl in Zahlen 
zurückverwandelt. 


860 PL(K,0)=VAL(PL$(0)) 

870 PL(K,l)=VAL(PL$(lh 
Der Rest ist identisch mit dem Speichern: 
880 NEXT K 
890 CLOSE 1 
895 GOTO 20 


Zur Erinnerung 


Oer Befehl VAL(A$) liefen den numerischen Wen des Strings A$. 
Dieser String kann sowohl mit dem S-Zelchen als auch In Gänsefüß¬ 
chen geschrieben sein. 


Das war eigentlich alles, was dieses Programm an 
String-Verarbeitung zu bieten hat. Mir fällt nur noch eine 
kleine Verbesserung ein, die zwar nichts mit Strings zu tun 
hat, aber recht nützlich sein kann. 

Ich schlage vor, die zehn Eintragungen der Listen auf 60 
zu erhöhen, das sind gerade drei mal zwanzig. Warum 3 x 
20? Nun, weil der Bildschirm nicht alle 60 Eintragungen auf 
einmal darstellen kann und wir deshalb »umblättern« müs¬ 
sen. 

Doch zuerst muß ich Sie an etwas erinnern, was ich ganz 
am Anfang gesagt habe: Ein Feld mit mehr als elf Plätzen 
muß vorher dimensioniert werden. 

10 DIM PL(60,2),NL$(60,2) 

Der zweite Index ist wieder das F beziehungsweise die 
maximale Anzahl der F-Werte.' Dann itnüssen wir alle 
K-Schleifen auf 60 erweitern. 

150 FOR K=1 TO 60 
720 FOR K=1 TO 60 
820 FOR K=1 TO 60 
1000 FOR K=1 TO 60 
TO 60 

Wenn bie das Programm jetzt laufen lassen, sausen die 
Anfänge der Tabellen aus dem Bildschirm. 

Drucken mit Pausen 


Nach jeweils 20 Zeilen soll das Ausdrucken aber stehen¬ 
bleiben, so lange, bis eine Taste gedrückt wird. Dazu ver¬ 
wenden wir eine kleine mathematische Formel; 

FOR K=1 TO 60 

IF K/21 = INT(K/21) THEN... 

Während das Programm die Druckschleife der Zeilen 
1210 bis 1280 bearbeitet, wirdjedesmal der Wert der Schlei¬ 
fe nvarlablen K durch 21 dividiert. Nur wenn das Resultat ei¬ 
ne ganze Zahl ist, was wir mit dem INT-Befehi prüfen, dann 
soll das Programm warten. 

Diese Bedingung ist nur bei den Werten K=21 und K=42 
erfüllt, denn 21/21*1 und 42/21=2, 

Hinter dieser Abfrage warten wir wie üblich mit dem 
GET-Befehl. Dadurch werden alle drei Listen beim Aus¬ 
drucken in drei lesbare Teile geteilt. 

1210 FOR K=1 TO 60 

1215 IF K/21*INT{K/21) THEN GET A$: IF A$«" 

THEN 1215 

Jetzt können Sie mit irgendeiner Taste die Listen bequem 
umblättern. 

Damit ist das Ende des String-Kurses erreicht, und Sie 
können sich nun zu der Gruppe der fortgeschrittenen 
Basic-Programmierer zählen. Die vielfältigen Beispiele des 
Kurses haben nur angedeutet, welche Vielfalt der unter¬ 
schiedlichsten Anwendungsmöglichkeiten mit der Kennt¬ 
nis der Stringverarbeitung vorhanden ist. Vielleicht finden 
Sie bei Ihren weiteren Erkundungen durch die Welt der 
Strings geeignete Lösungen oder interessante Anwendun¬ 
gen, die wir in späteren Heften vorstellen können. 

(Dr, Helmuth Hauck/Dr. R. Egg/ef) 
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TOOLS 



ln Zukunft laden Sie von Ihren Disket¬ 
ten nur noch ein einziges Programm: 
das Menü. Danach wählen Sie das ge¬ 
wünschte Programm direkt an und las¬ 
sen es laden. 


K omfortables Laden von der Diskette -ohne langes Su¬ 
chen nach dem Lade-Programm. Keine Frage mehr, 
ob das Programm mit »,8« oder mit ».8,1«geladen wird. 
Das Menü übernimmt diese Kleinigkeiten für Sie. Dabei be¬ 
nötigt es nur etwa sechs bis sieben Blöcke auf der Diskette 
Üenach Längedes Directory) und dürfte damit auf fast jeder 
Diskette Platz haben. Das Programm, das dieses Menü für 
Sie erstellt, ist der »MENUE-MAKER« (Listing 1). 

Bedienungsanleitung: 

Sie laden den Menü-Maker und starten ihn mit RUN. 
Dann legen Sie die Diskette ein, für die Sie ein Menü erstel¬ 
len wollen (ein eventueller Schreibschutz ist zu entfernen), 
und wählen Menüpunkt 2. 

Das Programm lädt nun das Directory und zeigt das erste 
Programm auf der Diskette an. Wenn das Programm später 
mit »,8« geladen werden muß, dann drücken Sie .<F1>, 
wenn Sie es mit »,8.1« laden müssen, dann drücken Sie 
<F3>. Wenn es sich um ein Unterprogramm oder sonst 
ein Programm handelt, das für sich selber nicht lauffähig 
ist, oder von einem Lader nachgeladen wird, dann drücken 
Sie <F5> (das Programm wird nicht ins Menü übernom¬ 
men). 

Wenn Sie so alle Programme auf der Diskette durchge¬ 
gangen sind, erscheint wieder das Hauptmenü. Wählen 
Sie nun Punkt 4und das Disk-Menü wird zusammen mit der 
Datei auf Diskette gespeichert. Sollte Ihnen bei Punkt 2 ein 
Fehler unterlaufen sein, dann wählen Sie diesen nochmals 
an und gehen ihn wieder durch, bis alles richtig ist. Dann 
fahren Sie weiter, wie oben beschrieben. 

Zusatzfunktionen: Wenn Sie Menüpunkt 1 anwählen, 
können Sie sich das Directory anschauen. Diese Funktion 
hat keinen Einfluß auf Punkt 2 und 4. 

Durch Wählen von Punkt 3 erhalten Sie eine kurze Anlei¬ 
tung. Mit Punkt 5 können Sie das Programm beenden. Zur 
Sicherheit werden Sie noch einmal gefragt, ob Sie das Pro¬ 
gramm wirklich verlassen wollen. Wenn ja, wird ein Reset 
ausgeführt. Im anderen Fall sind Sie wieder im Hauptme¬ 
nü. Punkt 1 und 3 verlassen Sie durch Drücken einer belie¬ 
bigen Taste. 

Programmbeschreibung: 

Die wesentlichen Aspekte des Programms sind Menü¬ 
punkt 2 und 4. 

Zu 2: Aus dem Directory werden die Programmnamen 
eingelesen und der indizierten Variablen NA$ (IN) zugeord¬ 
net. Dann wartet das Programm, bis man eine der drei mög¬ 
lichen Funktionstasten gedrückt hat. Wenn man < Fl > ge¬ 
drückt hat, wird NU$ (IN) gleich 8 gesetzt, damit das Pro¬ 
gramm später weiß, daß es dieses Programm mit»,8« laden 
muß. Entsprechend wird nach Drücken von <F3> NU$ 
(IN) auf 81 gesetzt. Wird < F5 > gedrückt, so wird NA$ (IN) 
wieder gelöscht und der Zähler IN um 1 zurückgesetzt. Die¬ 


se Prozedur wird fortgesetzt, bis alle Programme im Direc¬ 
tory abgearbeitet sind und das Programm wieder zum Me¬ 
nü springt. 

Zu 4: Hier werden nun zuerst NA$ (IN) (das den Programm¬ 
namen enthält) und NU$ (IN) (das die Information enthält, ob 
mit »,8« oder mit »,8,1« geladen werden soll) als sequentielle 
Datei mit dem Namen »MSD« gespeichert. Ist dies gesche¬ 
hen, wird der Bildschirm gelöscht und folgendes darauf ge¬ 
schrieben (was man jedoch nicht sieht, da es in der Hinter¬ 
grundfarbe geschrieben wird): 

RUN 1600 0 Zeilen Abstand) 

POKE 43,PEEK (6l)+l: POKE 44, PEEK (62) 

(2 Zellen Abstand) 

SAVE 'T<ENU",8 (4 Zeilen Abstand) 

POKE 43,1: POKE 44,8 (2 Zeilen Abstand) 

GOTO 1260 

Dann wird der Tastaturpuffer mit RETURN gefüllt, und 
durch einen END-Befehl fährt das Programm im Direktmo¬ 
dus fort. 

Auf dem Bildschirm stehen nun jedoch die oben genann¬ 
ten Befehle; der Tastaturpuffer ist mit RETURN gefüllt. Also 
führt der Computer diese Befehle aus. 

Durch die ersten beiden Befehle wird das ab Zeile 1610 
stehende Menü vom Rest des Programms getrennt (Anti- 
MERGE-Routine) und durch den SAVE-Befehl gespei¬ 
chert..- 

Ist dies geschehen, so gelangt der Computer zu den bei¬ 
den nächsten POKEs, die diese AntiMERGE-Routine wie¬ 
der aufheben. Danach wird in einer neuen Zeile durch GO¬ 
TO 1260 wieder ins Menü des Hauptprogrammes einge¬ 
stiegen. 

Damit wäre der Zweck dieses einfachen Programms 
schon erreicht, nämlich möglichst leicht und schnell ein 
Menü zu erstellen. Man muß also nur noch das Menü laden 
und mit RUN starten. Nachdem die Datei nachgeladen wor¬ 
den ist, kann man mit der Cursortaste und Return das zu la¬ 
dende Programm wählen. 

Das Menü lädt das Programm ebenfalls in einem »simu¬ 
lierten« Direktmodus nach. Es wird einfach ein LOAD- und 
ein RUN-Befehlaufden Bildschirm geschrieben, der Tasta¬ 
turpuffer mit RETURN gefüllt und das Menü mit NEW ge¬ 
löscht (wobei zugleich auch in den Direktmodus gesprun¬ 
gen wird). Übrigens kann das Menü (ab Zelle 1610) den ei¬ 
genen Vorstellungen angepaßt werden. Man muß nur dar¬ 
auf achten, daß es nach dem STOP-Befehl in Zeile 1600 
steht, da sonst die AntiMERGE-Routine das Menü nicht 
sauber abtrennt. (S, Brülisauer/kn) 


Kurzinfo: Menü-Maker 


Programmart: Floppy-Tool 
Laden mit: LOAD 'MENUE-MAKER',6 
Starten mit: Nach dem Laden RUN elngeben 
Eingaben über: Tastatur 
Beaonderhelten: 

- Mit dem Programm können Sie ein komfortables Menü für eine 
Diskette erzeugen. 

- Da die Programme aus dem Menü automatisch gestartet werden, 
ist beim Erzeugen der Menü-Datei darauf zu-achten, ob das 
jeweilige Programm mit »,8- oder -AI« geladen werden mu6. 

- Das »MENU« selbst muB unbedingt mit »,8- und nicht mit »,8,1« 
geladen werden. 

Programmautor: S. Brülisauer 
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10 DIti NA«(144) ,NU«(144) 

<206> 

600 IF TS="<F1>"THEN RETURN 

<ia5> 

20 PRINT CHR*(142>sPRINT CHR*(B> 

<1S4> 

610 IF T*="<F3)"THEN NU*(IN)-"Bl";POKE 214 


30 BOTO 1020 

<034> 

,PEEK(2I4)sPDKE 211,20t5YB 5S640sPRINT 


40 REM *** ANLEITUNG **» 

<0S2> 

"<RVBON>,a,l<RVOFF>" 

<0B5> 

30 PRINT‘'<CLR>"ssPRINT 

<170> 

620 IF T*="{F3>"THEN RETURN 

<07a> 

60 PRINT SPC<I4)"<BLUE,RVSONJANUEITUNB 

<123> 

630 IF T*="tF5>"THEN NA*(IN)"1IN®IN-1tPO 


70 PRINT 

<172> 

KE 214,PEEK(214) sPOKE 2U,20:8YB SB640 

<ei4> 

BO PRINT''{WHITE>- DIESEB PROGRAMM STELLT E 


640 IF T*-"<F5>"THEN PRINT"{RVBONTNICHT UE 


IN MENU EUER 

<086 > 

BERNOMMEN CRVOFF >"s RETURN 

'163> 

90 PRINT"{2SPACE>IHRE DISKETTEN HER UND SP 


650 GOTO 580 

<230> 

SICHERT ES 

<O0t> 

660 RETURN 

<21B> 

100 PRINT"<2SPACE>AB. SIE MUESSEN ALSO NAC 


670 i 

<138} 

MHER NUR NOCH 

<0B8> 

680 REM *** DIRECTORY ••* 

<137> 

110 PRINT"<2SPACE>0AS MENU LADEN,DAS PROGR 


6V0 PRINT"<CLR}"{ 

<120} 

AMM DAS SIE 

<190> 

700 CLOSE 2lOPEN ........ 


120 PRINT"<2SPACE>WUENSCHEN AUSWAEHLEN UND 


0iLE*="" 

<096> 

SCHON WIRD 

<115> 

710 OPEN 1,8,0,"*0" 

<096> 

130 PRINT"<2SPACE>ES IN DEN RECHNER BELADE 


720 BET»1,A*,B* 

<173> 

N. 

<055> 

730 GET#1,A*,B* 

<183> 

140 PRINT 

<242> 

740 BET*1,A*,B* 

<193> 

ISO PRINT 8PC<11>"{GLUE,RV80N}VORGEHENSUEI 


750 C>0 

<151> 

SE 

<0SÖ> 

760 IF A*<>"" THEN C«ASC(A») 

<120> 

160 PRINT 

<0B6> 

770 IF B*<>"" THEN C-C+ASC(B*>*256 

<199> 

170 PRINT"<WHITE>- WAEHLEN SIE ZUERST MENU 


730 IF X*0 THEN TB=2«BOTO 800 

<073> 

PUNKT 2 UND 

<1B8> 

790 TB=5 

<0a0> 

ISO PRINT"<2SPACE>BESTIMMEN SIE WELCHE PRO 


800 PRINT M1D*(STR*(C),2)}TAB(TB)J 

<135> 

GRAMME INS 

<164> 

BIO □ETlll,B*!lF STOO THEN 950 

<252> 

190 PRINT"<2SPACE>MENU AUFQENOMMEN WERDEN 


S20 IF B»<>CHR*(34)TH£N GOTO BIO 

<169> 

SOLLEN. 

<134> 

B30 IF X=0 THEN PRlNT"TRVSON}"j 

<193> 

200 PRINT"I2SPACEIGLE1CHZEITIS LEBEN SIE A 


840 PRINT CHR»(34)J!PRINT CHR»(34){!PRINT" 


UCH FEST,OB 

<032> 

{DEL}"; 

<208> 

210 PRINT"«2SPACEIES MIT ,8 ODER MIT ,B,1 


850 BET#l,B*!lF B*<>CHR*(34)AND X=0 THEN P 


(MASCHINEN- 

<092> 

RINT"{RVS0N>"8*!tBOTO SSOsGOTO 870 

<a72> 

220 PRINT"<2SPACE>PR0BRAMME> BELADEN WERDE 


860 IF B*<>CHR*(34)THEN PRINT B*!:EOTD 8S0 

<142> 

N SOLL. 

<B16> 

B70 IF X=0 THEN PRINT"CRVBON}"; 

<233> 

230 PRINT"- WENN SIE DIESE ARBEIT ERLEDIGT 


B80 PRINT CHR*(34)PRINT CHR*(34);«PRINT" 


HABEN, 

<117> 

{DEL}"! 

<24a> 

240 PRINT"{2SPACETS1ND SIE AUTOMATISCH WIE 


590 GET#l,B*!lF B*=CHR*(32> THEN 390 

<022> 

DER IM HAUPT- 

<070> 

900 PRINT TAB(24) } sC*="'' 

<232> 

230 PRINT"<2SPACE>MENU UND KOENNEN NUN MEN 


910 C*=C*+B*iQET#l,B*sIF B*<>"" THEN 910 

<164> 

UPUNKT 4 WAEH-"} 

<053> 

920 LE*=LEFT*(C*,6):IF X=0 THEN X=l!QOSUB 


260 PRINT" •C2SPACETLEN UM DAS MENU AB2U3PE1 

6AeR c 

■riLt lOP». PRINT"{4LEFT,RV5aN}"LE*:GaTa 940 

<02B> 

CHERN ODER 

<171> 

930 PRINT LE» 

<072> 

270 PRINT"T2SPACETFALLS IHNEN BEI PUNKT 2 


940 IF ST=0 THEN 730 

<aBi> 

EIN FEHLER 

<222> 

950 PRINT"{LEFT}BLDCKS FREE":CLOSE 1 

<212> 

2S0 PRINT"{2SPACEJUNTERLAUFEN IST,NOCHMALS 


960 BET TSslF T*=""THEN 960 

<235> 

VON VORNE 

<07I> 

970 T»="":RETURN 

<22B> 

290 PRINT“<2SPACE>BEGINNEN.tUP}" 

<233> 

980 LE=LEN(C*)!LE=6-LE 

<037> 

300 GET T*!lF T*a""THEN 300 

<017> 

990 FQR 1=1 TO LE:ZUS*=ZUS*+" "iNEXT 

<071> 

310 RETURN 

<114> 

1000 LE*=ZU*+LE*sRETURN 

<033> 

320 : 

<042> 

1010 REM **• TITEL *** 

<110> 

330 : 

<052> 

1020 POKE 532B0,6 ;POKE 53281,14:PRINT CHR 


340 REM *** UEBERNEHMEN *** 

<035> 

»(I42>CHR*(!47); 

<020> 

350 PRINT"........ X=0!XX= 


1030 PRINT 

<116> 

0 

<037> 

1040 PRINT"{BLACK.SPACE}UBBfRRPArPlaaQ BSQ 


360 PRINT"tRVSONTFl = ,B(RVOFF.SPACE,RVSON 


£S£{4SPACE}a.a £J.{4SPACE}a£ 

<225> 

JF3 » ,S,1<RVOFF,SPACE,RVS0NTF3 - NICH 


1050 PRINT" afl.9-B{3SPflCE}apQQ oaaDsso oaser 


T UEBERNEHMENtRVSON.OOWNJ" 

<0a2> 

3SPACE}£ä iLB{4SPACe}S£ 

<164> 

370 CLOSE ZsOPEN 2,8,15 

<1B8> 

1060 PRINT" aa aa aa aa aa"SPC(6)"aÄ aaias 


380 OPEN l,a,0,"S0" 

<020> 

PACEiaa aa{4SPAC£}Aa 

<109> 

390 QETttl,A«,B$ 

<097> 

1070 PRINT" aa{2SPACE>.9.89{7f^AnF}80 a9"RPr 


400 GET«1,A*,B4 

<107> 

(6) "aa< 2 SPACE}aA aa aa{48PACE}aa 

<129> 

410 SET»1,A«,B« 

<117>. 

10 B 0 PRINT" aa{3SPACE}ac3BPACE}aa aa"spc<6 


420 C>0 

<a75> 

)"as{3SPACE>aaaa aa{4spACE}aa 

<019> 

430 IF A*<>"" THEN C*ASC<A*I 

<044> 

1090 PRINT" aa"spc(7) "aa aaaa{4sPACE>aa{48 


440 IF B*<>"" THEN C-C+ASC(B*>*256 

<12l> 

PACE}aaa aa{4SPACE}aa 

<037> 

450 BET#l,B*iIF STOO THEN 540 

<138> 

1100 PRINT" aa"spc(7)"aa aa"SPC(6i"aa{5SPA 


460 IF B*<>CHR»(34>THEN GOTO 450 

<062> 

cEiaa aa<4SPACE}aa 

<252> 

470 GET*1,B*j1F B»<>CHR*<34)AND B4<>"<"THE 


1110 PRINT" aa"spc(7)"aa aa"spc(6)"aaissPA 


N A»-A4+G«lG0Ta SSO 

<155> 

cEiaa aB{4SPAC£}aa 

<0O6> 

4B0 IF B*<>CHR*(34)THEN GOTO 470 

<083> 

1120 PRINT" aa"SPC(7>"aa ojiaaeoo aaissPACE 


490 IF X=0 THEN ..GOTO 520 

<ai4> 

>aa 96900998 

<236> 

500 AC=RIBHT4<A«,LEN(A«)-1) 

<048> 

1130 PRINT" A8"SPC(7)"99 9898888 BÜf-iqPörF 


510 AS=LEFT«(A«,LEN(A4)):PRINT A«;;SOSUB 5 


}aa { 2 SPACE laaaaaa 

<226> 

70 

<119> 

1140 PRINUPRINT 

<a76> 

520 GET«1,B*:IF B»=CHR*<32> THEN 520 

<B26> 

1150 PRINT" {2SPACE>aii{5SPACE>MH{7RPAf-P}HHW 


530 IF ST=0 THEN 400 

<172> 

a{2SPACE}HM{2SPACE>H MURHU UUUU 

<23e> 

540 CLOSE lsPRINT"<CLR}";«RETURN 

<070> 

1160 PRINT"{2SPACE}HKK{5SPACE}H}m aH<2SPAC 


550 IF LEN(A*>>20 THEN GOTO 540 

<050> 

Eiaa Ha a<2SPACE}HH{4SPACE}aH{2SPACE} 


560 GOTO 470 

<116> 

a 

<096> 

570 IN=IN-*-lsNA*(IN»*A» 

<109> 



530 GET T*:IF T*=""THEN 5B0 

590 IF T»="<F1>"THEN NU*(IN)="8"sPOKE 214, 

<109> 

üsting 1. »MENUE-MAKERa lädt Programme 


PEEK(214)jP 0KE 211,20sByS 5B640tPRINT" 


menügesteuert. Bitte mit dem Checksummer 


<RVSQNT,e<RVDFF>" 

<004> 

(Seite 159) eingeben. 
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1170 

PRINT" C2SPACE>liH H H Hü Ha{2SPftCE>JiR 


1590 

PQKE 637,13sPQKE 19a,7:END 

<022> 


HKtl{3SPACE>lül{4SPACE}MH{2SPACE>H 

<106> 

1600 

STOP 

<142> 

11B0 

PRINT” t2SPACE>im<2SPACE>HI2SPACE>ilM H 


1610 

PQKE 53280,14:P0KE 532B1,6 

<042> 


Jimmw MKRt3SPftCE>HHHKf2SPACE>MMMM 

<113? 

1620 

PRINT"£CLR,9D0WN,WHITE,2DQWN,119PACE> 


1190 

PRINT" {2SPACE}ailt5SPACE>il!i iia<2SPACE> 



ICH LADE DIE DATEI"JZ=0:DIM NA#(144), 



M ilü Hi:2SPACe}EÜ<4SPACE}MH M 

<025> 


NU*(144) 

<174> 

1200 

PRINT" £2SPACE>JiliC5SPACE>aH HH£28PACE} 


1630 

CLQSE 2jOPEN 2,3,2,"MSD,S,R" 

<101> 


Kü ÜH<2SPACE>H MUMUM gH<25PACE>H 

<101> 

1640 

Z=Z+l 

<1B4> 

1210 

PRINT 

<040> 

1650 

INPUTtt2,NAA* 

<192> 

1220 

PRlNT"t7SPACE}WRITTEN BY SItIQN AND ED 


1660 

IF RIGHT*(NAA*,l)'="a"THEN NA*(Z)=LEFT 



Y" 

<203> 


*(NAA»,LEN(NAA*)-1)iNU*(Z)»",B" 

<068> 

1250 

SET A*!lF A#=""THEN 1250 

<157> 

1670 

IF R1GHTS<NAA*,2)="S1"THEN NA*(Z)»LEF 


12£>0 

PRINT" <CLR>’' 

<232> 


T*(NAA*,LEN(NAA*)-2)lNU*(Z)>>",B,l 

<134> 

1270 

PRINT, ■’ £2DaWN.WHITE,2SPACE>IHRE WAHL 


16S0 

IF 3T=64 THEN CLOSE ZlßOTO 1700 

<250> 


l " 

<110> 

1690 

GOTO 1640 

<074> 

12B0 

PRINT,"£2D0WN,2SPACEJI£2SPACEJDIRECT0 


1700 

PRINT"£CLR>"!sZ=0 

<014> 


RY EINLESEN" 

<226> 

1710 

PRINT"£2D0WN,I4BPACE)B£RVS0N>MENU-MAK 


1290 

PRINT,"<2D0WN,2BPACE>2£2SPACE)UEBERNE 



ER£RVOFF>H" 

<059> 


HMEN" 

<01B> 

1720 

PRINT"£DaWN,15BPACE>BY SIMON Si EDY" 

<014> 

1300 

PRINT,“£2DQWN,2SPACE>3£2SPACE>INF0" 

<160> 

1730 

PRINT TAB(S)"£2D0WN>CURS0R UP£4SPACE> 


1310 

PRINT,"£2DDWN,2SPACE>4£2SPACE>MENU SP 



NAECHSTES ELEMENT" 

<120> 


EICHERN" 

<033> 

1740 

PRINT TAB(5)“£D0UN>CURSQR DaWN£2BPACE 


1320 

PRINT,"£2D0WN,2SPACE>5£2SPACE>ENDE" 

<0B9> 


IVORHERIBES ELEMENT" 

<1B0> 

1330 

BET A* tlF A*=""THEN 1330 

<046> 

1750 

PRINT TAB(5)"£D0WN>RETURNf7aPACE>WAEH 


1340 

IF A*a"r’THEN GOSUB 690!GaTa 1260 

<103> 


LEN" 

<127> 

1350 

IF A«=''2''THEN BOSUB 3S0iGQTa 1260 

<154> 

1760 

PRTNT"fHHMF.l4nnWN.ABPARFlU********** 


1360 

IF A«=’'3"THEN GQBUB SGcQQTQ 1260 

<061> 


iL£±±±dtI" 

<129> 

1370 

IF A4;="4'’THEN BDTD 1460 

<B11> 

1770 

PRINT"£4BPACE>=£16SPACE>=" 

<141> 

13B0 

IP A*="5"THEN 1410 

<079> 

1780 

PRTNT" f4RPArF>3**»*****JHt**»*»*K" 

<032> 

1390 

GOTO 1330 

<204> 

1790 

POKE 214,15!POKe Zll.SsGYS 5B640IPRIN 


1400 

REM ENDE •** 

<217> 


T NA* (1) 1 Z= I 

<1B2> 

1410 

PQKE 214,23!PDKE 211,11:SYS 5a640!PRI 


1800 

GET T*SIF T*=""THEN 1800 

<235> 


NT"£RVBGN,BLUE>SIND SIE SICHER 7£UP>" 

<0B7> 

1810 

IF T*="<UP}"THEN Z=Z+1:X='1:BQBUB 1890 


1420 

GET T*sIF T*="N"THEN 1260 

<Z3I> 


:GDTO 1800 

<140> 

1430 

IF T*="J"THEN SYS 6473B 

<09a> 

1820 

IF T*="fDOWN>"THEN ZaZ-IIX=2sGOSUB 18 


1440 

GOTO 1420 

<Z3a> 


90SGOTQ 1800 

<122> 

1450 

REM *** DATEI SPEICHERN *** 

<022> 

1B30 

IF T*=CHR*(I3)THEN GOTO 1850 

<175> 

1460 

CLOBE ISsDPEN 15,8,I5sPRINT#I5,"S0iMS 


1S40 

GOTO 1B00 

<130> 


D":CLGSE ISlCLBBE 2:OPEN 2,B,2,"MSD,S 


1850 

PRINT"£CLR,BLUE>"5iPRINT"LQAD"CHR*{34 



,W" 

<223> 


)NA*(Z)CHR*(34)NU*(Z) 

<176> 

1470 

Z=0 

<201> 

1860 

PRINT"£4DOWN>POKE646,145 RUN" 

<0B2> 

14B0 

Z=Z+liIF Z=t45 THEN CLQBE 2: GGTO 1530 

iSAOiiy « 

..LBZaPOKE 631,19!PDKE 632,13:P0KE 633.13 iP 


1490 

IF NA*<Z)=""THEN CLDSE 2:GOTO 1530 

'<004> 


u;;e i9b,3snew 

<124> 

1500 

PRINT#2,NA*(Z)5NU*<Z) 

<118> 

1880 

REM *** UNTERPROG *** 

<115> 

1510 

GOTO 1480 

<245> 

1890 

IF Z=0 THEN Z=lsRETURN 

<039> 

1520 

REM *** MENU SPEICHERN #*« 

<247> 

1900 

IF NA*(Z)=""AND X=2 THEN Z=2+l!RETURN 

<11B> 

1530 

CLOSE IStOPEN lS,a,15sPRINTtH5,"S0:ME 


1910 

IF Z-=145 THEN Z=144iRETURN 

<200> 


NU"!CLDSE 15!PRINT"£CLR,IJP)"{:PRINT"R 


1920 

IF NA*(Z)=""AND X=t THEN Z»Z-1iRETURN 

<025> 


UN1600" 

<004> 

1930 

POKE 214,156P0KE 211,56SY8 5a640sPRIN 


1540 

PRINT"£3D0WN}PDKE43,PEEK(61)+ls P0KE44 



T"£16SPACE}" 

<18S> 


,PEEK(62)" 

<0S4> 

1940 

POKE 214,15sP0KE ZIl.SsSYS 5a640lPRIN 


1550 

PRINT"£2DaWN >SAVE"CHR*(34)"MENU"CHR*( 



T NA*(Z)iRETURN 

<126> 


34)",8" 

<233> 




1560 

PRINT"<4DDWN>PaKE43,lsPDKE44,B" 

<021> 




1570 

PRINT" f2DaWN>GDTQ1260‘' 

<136> 




isse 

PQKE 631,19]P0KE 632,13sPOKE 633,13sP 






□KE 634,15lPOKE 63S,13:PQKE 636,13 

<214> 

LIsting 1. »MENUE-MAKER» (Schluß) 
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Sie wollen mit 32 Sprites und vier Bildschirmbe* 
reichen gleichzeitig arbeiten? Nichts leichter als 
das. Mit Provic 64 tönnen simultan Grafik, Text 
oder veränderte Zeichensätze dargestellt werden. 

D ie Autoren (Jürgen und Stefan Haas) sind C64-Spe- 
zialisten, die sich bereits 1983 diesen Computer an¬ 
geschafft haben. Mit ihren Erfahrungen woilen sie ih¬ 
nen weiterheifen: 

Schon kurze Zeit nach dem Kauf des Computers stelite 
sich der Frust über die schlechte Dokumentation bei uns 
ein. So saßen wir oft stundenlang vor dem Bildschirm, der 
nur undefinierbare Zeichen zeigte, weil wir bei dem Ver¬ 
such, die Geheimnisse des C64zu enträtseln, in irgendei¬ 
nen unbekannten Darstellungsmodus gerieten. Dabei ent¬ 
deckten wir, daß der C64 nicht nur acht, sondern auch 16, 
24,32 oder noch mehr Sprites gleichzeitig zeigen kann. Zu¬ 
sätzlich ergab sich die Möglichkeit, mehrere Bildschirmmo¬ 
di zu mischen. 

Wir entschlossen uns, den Kunstgriff, der dies ermög¬ 
licht, anderen C64-Fans nicht vorzuenthalten. Also ent¬ 
wickelten wir ein Programm in Maschinensprache und da¬ 
zu ein kleines Demonstrationsprogramm in Basic. 

Zum Programm 

Durch Aufruf der Initialisierungsroutine wird der Inter¬ 
ruptmechanismus des C64 verändert. Nicht mehr der 
Timerder CIA 1, sondern der VIC 6567 löst Jetzt den Inter¬ 
rupt aus, und zwar synchron zum Takt des Bildschirmsi- 
gnais. Außerdem werden vier sogenannte Pseudo-VICs 
eingerichtet. Alle POKEs, von Spritebewegung über Bild¬ 
schirmfarbe bis zur Grafikkonfiguration, müssen ab jetzt in 



diese Pseudo-VICs erfolgen. Jeder dieser Pseudo-VICs ist 
für einen der vier Bildschirmbereiche zuständig; 

Der Bildschirm wird In vier waagerechte Bereiche aufge¬ 
teilt, deren Grenzlinien fast beliebig nach oben oder unten 
verschoben werden können. Jeder einzelne Bereich kann 
acht Sprites darsteiien und eine eigene Färb- und Grafik¬ 
konfiguration aufweisen. So können zum Beispiel Normal¬ 
schrift, Hires-Grafik, Multicolor-Grafik und eventuell ein 
selbstdefinierter Zeichensatz gleichzeitig auf dem Bild¬ 
schirm dargestellt werden. 

Provic 64 läßt sich selbstverständlich wieder abschalten 
(bei Kassetten- oder Diskettenoperationen nötig). 

Für Maschinensprachefreaks nun eine kurze Funktions¬ 
beschreibung der Interruptroutine: 

Bei Aufruf der Einschaltrouline (SYS 52544) wird der 
IRQ-Vektor auf die Hauptroutine des Provic 64 gestellt und 
der bisherige Interrupt durch den Timer A der CIA 1 verbo¬ 
ten, während der Raster-IRQ des VIC 6567 erlaubt wird. 

Sobald der Bildschirmstrahl die eingestellte Rasterzeile 
erreicht, wird ein Interrupt ausgeiöst, und der Prozessor be¬ 
arbeitet die Hauptroutine. In dieser wird zunächst anhand 
eines Zählers ($ CFFF) festgestellt, welcher Bildschirmbe¬ 
reich an der Reihe ist. Dann wird die Rasterzeile, die das 
Ende dieses Bildschirms kennzeichnet, eingestellt. 


Kurzinfo: Provic 64 


Programmart: Tool für Sprites 

Laden: LOAD "LADER'S 

Start: Nach dem Laden RUN eingeben 

Besonderheiten: Der Lader erzeugt den Maschinensprachtell 

■Provic 64- und speichert ihn automatisch auf Distcelle. Das 

Zusatzprogramm »Oemo- zeigt einige der Fähigkeiten von 

»Provic 64«. 

Programmautoren: Stefan und Jürgen Haas 


Anschließend werden, falis ein entsprechendes Flag ge¬ 
setzt ist, die Sprite- und andere Bildschirmparameter in den 
VIC 6567 übertragen. Nach dem Weiterzählen des IRQ- 
Zählers ($ CFFF) wird entweder der Interrupt beendet oder 
zur IRQ-Routine des Betriebssystems gesprungen (nach 
jedem vierten Interrupt). So werden in der Sekunde 200 In¬ 
terrupts (vier pro Fernsehbild) ausgelöst und 50mal in der 
Sekunde (einmal pro Bild) die normale IRQ-Routine abge¬ 
arbeitet. Dadurch zählt die interne Uhr TI in SOstel Sekun¬ 
den, und TlSwird unbrauchbar. 

Beim Aufruf der Ausschaltroutine wird der Raster-IRQ 
des VIC 6567 unterbunden, der Interrupt des Timers A in 
CIA 1 erlaubt und der IRQ-Vektor auf die IRQ-Routine des 
Betriebssystems eingestellt. 

Im Grunde ist jeder der vier Pseudo-VICs wie der echte 
VIC zu behandeln. Ausnahmen sind hier nur die Register 
30 (Sprite-Sprite-Kollision) und 31 (Sprite-Hintergrund-Kol- 
lision), die sich auf den jeweils vorausgegangenen Bild¬ 
schirmbereich beziehen. Die Register 19 und 20(Lightpen- 
koordinaten) sowie 25 und 26 (IRQ-Flags und -Maske) wer¬ 
den nicht behandelt, da diese Funktionen nur direkt über 
den VIC 6567 sinnvoll gehandhabt werden können. Außer¬ 



dem hat jeder Pseudo-VIC noch zusätzliche Register für 
zwei Flags (REG 47 und REG 57), acht Sprite-Polnler (REG 
48 bis REG 55), Videomatrix-Anfangsadresse High-Byte 
(REG 56) und die CIA 2. REG 0. Bits 0 und 1 (REG 58) 
(Adreßbus 14 und 15 des VIC 6567). 

Die vier Basisadressen der PVICs sind: 


PVIC1 

52992 ($ CFOO) 

- REGO 

PVIC2 

53056 ($ CF40) 

- REGO 

PVICS 

53120 ($ CF80) 

- REGO 

PVIC4 

53184 ($ CFCO) 

- REGO 


Da die Pseudo-VICs praktisch gleichberechtigt sind, hier 
die Registerbeschreibung eines Pseudo-VICs: 


REG 0: 

X-Koordinate des Sprite 0 

REG 1: 

Y-Koordlnate des Sprite 0 

Beachte: Die Y-Koordinalen sollten tm Bereich 
des zugehörigen Btldschirmberelchs liegen, 
sonst Ist der Sprite nicht zu sehen. Näheres 
siehe unten. 

REG 2 bis 15: 

W/ie REG 0 und 1, aber für Sprites 1 bis 7 

REG 16: 

MSB (höchstes Bit) der X-Koordinaten 

REG 17: 

Bits 0 bis 2; Y-Abstand der Zeichen vom 
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oberen Bildrand In Rasterzeilen (Softscrolllngl) 
Bit 3: Umschaltung 24/25-Zeilendarstellung 
Bit 4: Bild an/aus: Es hat keinen Sinn, das Bild 
teilweise ausschalten zu wollen, da der VIC 
dieses Bit nur einmal pro Fernsehbild prüft 
(also entweder das ganze Bild an oder aus) 

Bit S: HlreS'Graflkmodus an 

Bit 6: HIntergrundmehrfarb-Modus an 

Bit 7: Nummer der Interrupt-Rasterzeile Bit 6; 

es hat wenig Sinn, dieses Bit zu setzen, da so 

nur Rasterzellen angesprochen werden, die 

unterhalb des Bildschirms liegen. Ist In 

irgendeinem Pseudo-VIC die 9-Bit-Zahl für die 

Rasterzelle größer als 311, so wird überhaupt 

kein IRQ mehr ausgelöst. 

REG 18: Nummer der Raslerzelle Bits 0 bis 7; hier ist 

anzugeben, wann der nächste Interrupt 
ausgelöst werden soll, das heißt wo der 
Bildschirmbereich dieses PVICs zu Ende sein 
soll. Dabei sollte folgende Reihenfolge 
eingehalten werden: REG 18: PVIC l < PVIC 2 
< PVIC 3 <PVIC 4 (Zyklische Vertauschungen 
möglich!) 

REG 19 und 20: nicht verwendet (siehe oben) 

REG 21: Sprite enable (einschalten) 


REG 22: 

Bits 0 bis 2: Soltscrolling In X-Rlchtung 

Bit 3; Umschaltungen 38/40-Spaltendarstellung 

Bit 4; Multicolor-Modus ein 

Bit 5 bis 7: unbenutzt 

REG 23: 

Sprite vergrößern in Y-Richtung 

REG 24: 

Bits 1 bis 3: Adresse Zeichengenarator 
(Bits 11 bis 13) 

Bits 4 bis 7: Adresse Video-RAM (Bits 10 bis 13) 

REG 25 und 26; 

nicht verwendet (siehe oben) 

REG 27: 

Sprite-Priorltät vor Hintergrund 

REG 28: 

Flags für Multicolor-Sprites 

REG 29: 

Sprite vergrößern in X-Richtung 

REG 30: 

Sprite-Sprite-Kollision 

REG 31: 

Sprite-Hlntergrund-Kolllsion 

Achtung; geben die Kollisionen des 
vorangegangenen Bildschirmbereichs an; 

Findet im Bereich von PVIC 3 eine Kollision 
statt, wird dies im PVIC 4 registriert. Kollisionen 
im Bereich von PV!C 4 werden Im PVIC 1 
registriert. Dieses Register muß gelöscht 
werden, um neue Kollisionen anzeigen zu 
können! 

REG 32: 

Rahmenfarbe 

REG 33 bis 36: 

Hintergrundfarben 0 bis 3 

REG 37 und 38: 

Multicolor-Sprite-Farben 0 und 1 
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REG 39 bis 46: 

Farben für Sprites 0 bis 7 

REG 47: 

Flag für Spritebehandlung; nur wenn der Inhalt 
dieses Registers nicht Null Ist, werden die 

Register, die etwas mit Sprites zu tun haben, 
vom PVIC in den VIC 6567 übertragen. Das 
sind REG 0 bis REG 16, REQ 21, REQ 23, REG 

27 bis REQ 31, REG 37 bis 46 sowie REG 48 
bis 55. Ist der Inhalt Null, gelten für die Sprites 
die Werte des vorherigen PVICs, während die 
Kollisionen erst Im nächsten PVIC, in dem REQ 

46 ungleich Null Ist, angezelgt werden. 

REQ 48 bis 55; 

Sprite-Pointer für Sprites 0 bis 7; die Pointer auf 
die Bltmuster der Sprites werden nicht mehr in 
die Speicherzellen 2040 bis 2047 geschrieben, 
sondern In diese Register des PVICs. 

REG 56: 

In diesem Register muß das High-Byte der 
Video-RAM-Anfangsadresse plus 3 stehen; 
normalerweise also 4 + 3 - 7 (da der 

Bildschirm nach dem Einschalten des 

Computers bei 1024 beginnt. 1024 - $0400). 

Bei Verlegung des Video-RAMs ist also der 

Inhalt dieses Registers zu korrigieren. 

REG 57: 

Flag für BHdschlrmparameter-Behandlung; nur 
wenn der Inhalt dieses Registers nicht Null Ist, 
werden die REG 17, 22, 24 sowie 32 bis 36 und 
REG 58 in den VIC 6567 übertragen. 

REG 58: 

Bits 0 und 1: Adreßbus 14 und 15 des VIC 6557; 
werden nach CIA 2 REG 0 Bits 0 und 1 
übertragen. Mit diesen Bits kann Video-RAM, 
Charaktergenerator, Grafik-Bitmap in 16-KByte- 
Schritfen verschoben werden. Da die Bits low- 
aktiv sind, sind sie beim Einschalten gesetzt 
(also REG 58 = 3). Bits 2 bis 7: unbenutzt, 
immer 0. 


Übergang eines Sprites zwischen zwei Bildsciirrmbe-^' 
reichen: 

Soll ein Sprite zwischen zwei Biidschirmbereichen wech¬ 
seln, mu8 in beiden Bereichen derselbe Sprite (also z. B. 
beidesmai Sprite 4) die gleiche Position besitzen, und zwar 
so lange, wie der Sprite die Trennlinie zwischen den Berei¬ 
chen überdeckt. Beachtet man dies nicht, werden die ent¬ 
sprechenden Sprites zerschnitten und verschoben. 

Aktivieren von Provic 64: Von Basic aus mit SYS 52544 
und von Maschinensprache aus mit JSR $CD40. 

Ausschalten von Provic 64; Von Basic aus mit SYS 52970 
und von Maschinensprache aus mit JSR $CEEA. 

Der Basic-Lader: 

Der Lader erzeugt Provic 64 aus den DATA-Zeilen, und 
falls kein Prüfungsfehler vorliegt, wird Provic 64 sofort 
als Maschinenprogramm auf Floppy oder Datasette (Zeile 


400 entsprechend ändern!) gespeichert. Dieses Maschi¬ 
nenprogramm enthält auch gleich die Standardwerte der 
Pseudo-VICs. 

Das Demo-Programm; 

Zunächst muß Provic 64 geladen werden. Dies erfolgt in 
Ihren eigenen Demo-Programmen am besten mit der Zeile 
»IF PEEK (52544) > < 120THEN LOAD "PROVIC64", 
Gerätenummer, 1« die am Anfang des Basic-Programms 
stehen sollte. 

Das Demonstrationsprogramm zeigt einige der Vorzüge 
von Provic 64. Es ist nur als Anregung gedacht, deshalb 
verzichten wir hier auf eine nähere Beschreibung. 

Provic 64 ist nicht nur für Basic-Programmierer, sondern 
vor allem auch für Maschinensprache-Freaks gedacht, da 
erst durch schnelle Maschinenprogramme die Möglichkei¬ 
ten von Provic 64 voll ausgeschöpft werden können. 

(Jürgen und Stefan Haas/kn) 


Täbeilarlsche Übersicht zu Provic 


Belegter Adreßraum: 

SCD40 Elnschaltroutlne 

SCD58 Interruptroutine 

SCEEA Ausschaltroutine 


SCFOO Pseudo-VIC 1 

SCP40 Pseudo-VIC 2 

$CF60 Pseudo-VIC 3 

SCFCO Pseudo-VIC 4 

$CFFF Interruptzähler 
Provic 64 elnschalten: 
in Basic: SYS 52544 
in Maschinensprache: JSR SCD40 
ausschalten: 
in Basic: SYS 52970 
In Maschinensprache; JSR SCEEA 
Benutzte RAM-Adressen: 
in der Zero-Page: 187 (SBB) 

188 (SBC) 

Rechenzeitzuwachs bei aktiviertem Provic 64: 
alle Spriteflags (REQ 47) und Bildschirmparameterflags 
(REG 57) gelöscht: 2,5% 

für jedes gesetzte Spriteflag (REG 47): zirka -1-2,4% 

für jedes gesetzte Blldechirmflag (REQ 57): zirka -f 0,5% 

alle Sprite- und Bildschirmflags gesetzt: zirka -f 15,0% 

Falls der Rechner abstürzt, rettet <Run-Stop/ReBtore>! 

Die Zeltvarlable TI zählt bei aktiviertem Provic 64 In SOstel 
Sekunden (statt 60stel); 

TIS wird somit unbrauchbar. 

Zeiger für Interruptaussprung von PVIC 3 bis PVIC 4: $CEE5 
Zeiger für Interruptaussprung von PVIC 1: SCEE8 


le REM INTERRUPT-ROUTINE ZUR ERZEUSUNG <217> 

11 REM <fl73> 

12 REM EINES MAXIMAL VIERTEILIGEN <123> 

13 REM <075> 

14 REM BILDSCHIRMES UND 32 SPRITES <142> 

13 REM <077> 

16 REM AUF EINEM COMMODORE 64 COMPUTER <09S> 

17 REM <079> 

IG REM BY GEBR. HAAS <16a> 

19 REM <0at> 

100 REM PRUEFSUMMEN-KONTROLLE <0I6> 

101 REM <163> 

110 RESTOREjPS=0 <164> 

120 FOR A=0 TO 511 <01S> 

130 READ WERT <013> 

140 PS=PS*WERT <145> 

130 NEXT A <170> 

160 IF PSO60913 THEN PRINT"DATA-PRUEF5UMM 

E FALSCH !"sEND:» <197> 

199 REM <005> 


200 

REM MASCHINENCODE UEBERTRAGEN 

<029> 

201 

REM 

<B07> 

210 

RESTORE 

<O04> 

220 

FOR A»0 TO 447 

<B02> 

230 

READ WERT 

<113> 

240 

POKE 32S44+A,WERT 

<B4a> 

250 

NEXT A 

<014> 

260 

FOR A=0 TO 63 

<190> 

265 

READ WERT 

<150> 

270 

FOR B«0 TO 3 

<027> 

280 

POKE 52992+e*64+A,WERT 

<045> 

290 

POKE 52992+B*64-Ha,95+30*B 

<217> 

295 

NEXT B,A 

<047> 

299 

REM 

<107> 

300 

REM PROVIC 64 ABSPEICHERN 

<010> 

301 

REM 

<109> 


Listing 1. »LADER» erzeugt automatisch den Maschinen¬ 
spracheteil »Provic 64» und speichert Ihn auf Diskette 
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310 N4="PR0VIC Ä4" <233> 

320 FOR fl=l TO LEN(N») <074> 

330 POKE 49151+fl,ASC<M:DS(N»,A,l)> <107> 

340 NEXT A <106> 

350 POKE 103,L£N(N*! <ia5> 

360 POKE ta7,0;PQKE 183,192 <237> 

370 POKE 185,1 <039> 

380 POKE 193,64iP0KE 194,205 <234> 

390 POKE 174,0tPOKE 175,208 <0377 

400 POKE 186,B: REM FUER FLOPPY 1 8 

FUER DATASETTEi 1 <021> 

410 SYS 629571 REM SAVE ROUTINE <217> 

420 END <16a> 

999 REM <043> 

1000 REM PROVIC 64 MASCHINENCODE <140> 

1001 REM <045> 

1002 DATA 120,169,88,162,205,141,20,3,142, 

21,3,169.1,141,13,220,141,26,208 < 0 a 2 > 

1003 DATA 141,255,207,88,96,169,1,141,25,2 

08,172,255,207,240,15,136,240,9,136 <057> 

1004 DATA 240,3,162,192,44,162,128,44,162, 

64,44,162,0,189,18,207,141,18,208 <03a> 

1005 DATA 189,47,207,208.3,76,141,206,173, 

30,208,29,30,207,157,30,207,173,31 <234> 

1006 DATA 208,29,31,207,157,31,207,189,21, 

207,141,21,208,189,23,207,141,23 <000> 

1007 DATA 208,189,29,207,141.29,208,189,0, 

207,141,0,208,189,1,207,141,1,208 <19S> 

1008 DATA 189,2,207,141,2,208,189,3,207,14 

1,3,208,189,4,207,141,4,208,189,5 <007> 

1009 DATA 207,141,5,208,189,6,207,141,6,20 

8,189,7,207,141,7,203,189,8,207,141 <039> 

1010 DATA 8,208,189,9,207,141,9,208,189,10 

,207,141,10,208,189,11,207,141,11 <167> 

1011 DATA 208,189,12,207,141,12,208,189,13 

,207,141,13,208,189,14,207,141,14 <113> 



LIsting 1. (Schluß) 


6 REM DIESES KURZE DEMO-PROBRAMM SOLL 
8 REM EIN PAAR DARSTELLUNBSFORMEN 
10 REM ZEIGEN, WIE SIE MIT PROVIC-64 
12 REM RELATIV EINFACH ERREICHBAR SIND. 

14 REM BY GEER. HAAS 

19 REH 

20 REM LADEN DER PRaVIC-64 ROUTINE 

21 REM 

30 IF PEEK(32544>=I20 THEN 100 
40 PRINT"{2DQWN,SPACETAUF WELCHEM DATENTRA 
EBER IST PRaVIC-64” 

50 PRINT"tDQWN.SPACETVERFUEGBAR ( FLOPPY = 
a / DATASETTE =1 )" 

60 INPUT" '•;A*sA=VAL«A*l 
70 IF AOl AND AOa THEN 40 
80 LOAD"PROVIC 64",A,1 

99 REM 

100 REM PSEUDB-VIC'S INITIALISIEREN 

101 REM 

1 10 Pl-529921P2=53056j P3=53120s P4=53ia4sRE 
M BASISADRESSEN DER PSEUDO-VIC'S 
120 POKE Pl+21,25SsPaKE Pt+24,22:P0KE PI+4 
7,llP0KE Pl+27,255sP0KE P2+21,255 
130 POKE P2+17,59tP0KE PZ+24,24iPOKE P2+32 
,7sP0KE P2+47,1 jP 0KE P2+27,255 
140 POKE P3+21,255!POKE P3+32,9«PDKE P3+47 
.liPQKE P3+27,25SiP0KE P4+32,5 
150 POKE P4+21,Z55iPDKE P4*24,22lPOKE P4+4 
7,liP0KE P4+ia,230iPOKE P4*27,255 

199 REM 

200 REM SPRITE-DRTEN UEBERTRAGEN 

201 REM 
210 RESTORE 

220 FOR A=0 TO 126 
230 READ WERT 
240 POKE 832+A,WERT 
250 NEXT A 

299 REM 

300 REM BILSCHIRM AUFBAUEN 

301 REM 

310 PRINT"{CLR,WHITE,DOWN,RVSQN,7RIBHT>£<S 
HIFT-SPACEJaCSHIFT-SPACETfltSHIFT-SPACE 
}JifSHIFT~SPACE>HSHIFT-BPACE>£<3SHlFT- 
SPACE)6<SHIFT-SPACE>4t3SHIFT-SPACE>a{S 
HIFT-SPACETECSHIFT-SPACEJflCSHIFT-SPACE 
}£," 


<075> 

<251> 

< 110 > 
<164> 
<081 > 
<069> 
<OB3> 
<014> 

<056> 

<241 > 
<073> 
<a77> 
<130> 
<161> 
<14S> 
<163> 

<2e6> 

<172> 

<071> 

<1S2> 

<217> 

<0057 

<034> 

<007> 

<004> 

<124> 

<113> 

<152> 

<014> 

<107> 

<127> 

<109> 


<192> 


320 PRINT"<2DaWN,BPACE>iN DIESEM ÄREICHs 
KLEIN-SCHRIFT {DOWN>"! 

'^0^- A=0 TO 7!PRINT'’<BLUE>RRRRRRRRRRRRR 

RRRRRRRRRRRRRRRRRRRRRRRRRRR {WHI TE J " 5 ! N 
EXT A 

335 FOR A=0 TO 14:PDKE 12B9+A,34!NEXT A 
340 PRINT"{6BPACE>t DORT OBEN! HIRES-BRAFI 
K-MODUS f" 

350 PRINT"{DOWN,13BPACE>HlERs GROSS-SCHRIF 
T/BRAFIK" 

360 PRINT" {DQMN. SPACFT BUCHTYUI PC?»* I.KJHrsn? 


370 

390 

399 

400 

401 
410 
420 
430 
440 

450 

460 

470 

480 


490 

499 

500 

501 

510 

511 
520 
530 

540 


PRINT"{5D0WN,6SPACE>t BORT OBENi iAUFS 
CHRIFT t{3UP>'':PRINT TAB(6l5 
SYS 52544:REM PROVIC-64 ACTIVIEREN 
REM 
REM 
REM 
FOR 
FOR 


HIRES-BRAFIK ZEICHNEN 


A=10110 TO 12360,POKE A,0iNEXT A 
A=0 TO 8*1STEP.0S 
X=3+A/.0a!Y«77-ll*SIN<A)-9*CaS<A/.7> 
AV='B192+320*INT!Y/8)+(Y AND 7>+B*INT(X 
/B) 

POKE AV,PEEK<AV> OR 2t(7-(X AND 7)) 
NEXT A 

LA*»"*** VON ÜAASISDFT ***{2SPACE>£UER 
DAS 64-ER flA5AZIN{3SPACE}" 
LA*-LA*+"***{3BPACE>£{SHIFT>-SPACE>Ä{SH 
IFT-SPACE>fl{SHIFT-SPACE>ÜCSHIFT-SPACE> 
1{SHIFT-SPACE}JJ{3SHIFT-SPACE>6 4{3SPAC 
E>" 

LA*=LA*+LEFT»CLA*,Z5>!R*53266 
REM 

REM DEMONSTRATINS-SCHLEIFE 
REM 

REM SPRITES SETZEN 
REM 

FOR A=0 TO 7 

POKE P1+2*A,30+24»A+7*RND(1)!POKE Pl+2 
*A+J,60*6*RND(1I 

POKE Pl+39<-A,RND<l)*168P0KE Pl-t-4B+A,13 
.5+RND < t) 


<044> 


<17B> 

<24a> 

<B24> 

<093> 

<037> 

<055> 

<O80> 

<207> 

< 201 > 

<209> 

< 212 > 

<24S> 

< 121 > 

<172> 

<072> 

<226> 

<128> 


<ta7> 

<066> 

<0S1> 

<14I> 

<053> 

<013> 

<063> 

<0I7> 

<158> 

< 110 > 


LIsting 2. Einige der Vorzüge von >Provic 64« zeigt das 
Programm »Demo« 
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sse 

POKE P2+2*A,3a+24*fl+7*RND(l)iPOKE P2+2 


670 NEXT LP 

<019> 


*A-H,110+6*RND(1> 

<011> 

600 GET A*!lF A*=""THEN 500 

<173> 

560 

PQKE P2+39*A,RND(1>»16:PDKE P2-h48+A,13 


690 SYS 52970tREM PROVIC-64 DESAKTIVIEREN 

<194> 


.5+RND <1) 

<17B> 

999 REM 

<043> 

570 

POKE P3+-2»A,30+24*A+7*RND(l)!POKe P3+2 


1000 

REM SPRITE-DATEN 

<203> 


#A+1,160+6*RND<I> 

<135> 

1001 

REM 

<e4S> 

see 

POKE P3+39-*-A,RN0<1)*16jPDKE PS+Ae-^A, 13 


1002 

DATA 0,0,0,0,126,0,1,255,128,7,255,22 



.S+RND(1) 

<246> 


4,15,255,240,15,253,240,31,255,248 

<077> 

590 

POKE P4+2*A,30*24*A+7*RNDtl)lPOKE P4+2 


1003 

DATA 31,255,248,63,255,252,63,255,252 



*A+1,Z07+6*RND<1) 

<059> 


,63,243,252,63,252,0,63,255,252,63 

<031> 

600 

POKE P4f-39+A,RND<l)*16»PDKE P4+4B+A,13 


1004 

DATA 255,252,31,255,248,31,255,246,15 



.5+RND<1) 

< 0 se> 


,255,240,15,255,240,7,255,224,1,255 

<199> 

610 

NEXT A 

<122> 

1005 

DATA 128,0,126,0,0,0,0,0,0,126,0,1,25 


619 

REM 

<173> 


5,128,7,255,224,15,255,240,15,251 

<154> 

620 

REM LAUFSCHRIFT SETZEN 

<097> 

1006 

DATA 240,31,255,248,31,255,248,63,255 


621 

REM 

<175> 


,240,63,255,0,63,240,0,63,252,0,63 

<e03> 

625 

FOR LP=1 TO LEN(LA*>-25 

<195> 

1007 

DATA 255,0,63,255,224,31,255,248,31,2 


630 

LZ»LZ-lilF LZ>0 THEN POKE P4+Z2,LZ OR 



55,248,15,255,240,15,255,240,7,255 

<05a> 


aiFDR As0 TO 99NEXT AiGOTO 630 

<iie> 

1008 

DATA 224,1,255,128.0,126,0 

<079> 

640 

PRINT TAB(6>|iMAIT 53265,1281 MAIT 5326 






6,64:P0KE 53206,ISiPRINT LF6:PRINT"<2U 






P>" 

<193> 




660 

LZ«7!LF*»MID4(LA*,LP,25) 

<244> 

LIstIng 2. (Schluß) 



MASKENGENERJnOR 



BI LOSCH IRM-HASKCN-GENERATOR □ 
URITTEH 3/1886 BV ROM8N BARTKE 


SOLLEN 'SHirT/SPACE' DEN 
SPACE^-ZElCHEN GLEICH SEIN ? J 


Bild 1. Dieses 
Titelbild erscheint 
nach dem Starten 
des Masken¬ 
generators 


FÜR VERWOHNTE 


Ab jetzt ist das Gestalten von Biid- 
schirmmasken ein Kinderspiel. Mit 
diesem Editorprogramm kreieren Sie 
schnell und komfortabel eine neue 
Bildschirmmaske und generieren die 
entsprechenden Basic-Zeilen. 


B ei diesem Bildschirmmasken-Qenerator (Listing 1) 
kommt es nicht so auf Geschwindigkeit an, vielmehr 
sind Komfort und eine mögiichst perfekt programmier¬ 
te Maske die Schwerpunkte des Entwickiers. Der Masken¬ 
generator bietet intelligente Optimierungsroutinen und er¬ 
zeugt ein möglichst platzsparendes Basic-Programm für 
die generierte Bildschirmmaske. Dabei verhindert der Ge¬ 
nerator automatisch, daß die erzeugte Maske beim Errei¬ 
chen des letzten Bildschirmzeichens um eine Zeile nach 
oben scrollt. 
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Das Listing besteht aus zwei unabhängigen Program¬ 
men. Das zweite Programm ist der schon erwähnte komfor¬ 
table Editor. Er eignet sich hervorragend zum Zeichnen von 
Blockgrafik-Bildern. Es lassen sich Linien zeichnen, Zeilen 
löschen und zentrieren, Spalten löschen, Hintergrund- und 
Rahmenfarben umschalten, kurz; Er ist viel komfortabler 
als der Basic-Editor! 


Programmbeschreibung 


Der Maskengenerator wird mit »LOAD”Maske”,« geladen 
und mit RUN gestartet. Es stehen folgende Kommandos 

zur Verfügung: 


- alle in Basic 

erreichbaren Tasten außer 

CHR$(34) = » ” < 

<, denn ich glaube, daß Anfüh- 

rungszeichen in einer Maske nichts zu suchen 

haben 


-F1 

- Rahmenfarbe weiterschalten 

-F3 

- Hintergrundfarbe weiterschalten 

-F5 

- Wiederholung für alle Tasten ein 

-F7 

- Wiederholung für alle Tasten aus 

- alle Cursor-Tasten 

-CBM-i-SHIFT 

- Zeichensatz umschalten 

- Cursor-Farben 

- wie in Basic 

- CTRL-t-Z 

- Zeile zentrieren 

-CTRL+X 

-Zeile löschen 

-CTRL+Y 

- Spalte löschen 

-CTRL-fL 

- Linie zeichnen: 


Vor dem Erstellen einer neuen Maske sollte der Bild¬ 
schirm mit <SHIFT CLR/HOME> gelöscht werden. 

Wollen Sie eine horizontale oder vertikale Zeichenkette 
erzeugen, so schreiben Sie an die Anfangsposition das ent¬ 
sprechende Zeichen. Nun muß man mit dem Cursor wieder 
auf dieses Zeichen fahren und <CTRL L> (für Linie) 
drücken. Jetzt bewegen Sie den Cursor an das Ende der 
Zeichenkette und drücken < RETURN >. Die Zeichenkette 
wird erzeugt und der Cursor befindet sich an dessen Ende. 


Noch ein paar Hinweise: Am Anfang wird folgende Frage 
gestellt (Bild 1); 

»Sollen ’SHIFT/SPACE’ den ’SPACE’-Zeichen gleich 
sein?« 

Falls Sie die SHIFT/SPACE-Taste nicht für irgendwelche 
Zwecke benötigen, können Sie einfach < RETURN > ein¬ 
geben, sonst <N> + <RETURN>. 

Beschreibung der Programmfunktion: 

Speicheraufteilung: 

Speicherzelle 2 und die Speicherzellen 832 bis 839 dienen 
als Flags und Zeiger zwischen den verschiedenen Pro¬ 
grammteilen, Ihre Funktion: 


2 falls die Anfangsfrage mit Ja beant¬ 

wortet wird, wird sie auf 1 gesetzt 

832 = letztes Zeichen 

833 = Farbe des letzten Zeichens 

834 = 1, wenn letztes Zeichen vorhanden 

835 = Variablenstart der Maske Low-Byte 

836 = Variablenstart der Maske High-Byte 

837 = Zeichensatz (Wert aus 53272) 

838 = Erste Farbe zur Generierung der 
ersten Zeile 

839 - Falls letzte Zelle Zeichen enthält, 
dann gesetzt 

$0800 - $8000 Bildschirmmaskengenerator 
$8000 - $A000 Generierte Bildschirmmaske 
$C000 - SDOOO wird als Zwischenspeicher 
im PASS 1 benutzt 


Der Generator arbeitet folgende Schritte ab: 

Maske einiesen und vorbehandeln, Maske verarbeiten und 
als generiertes Programm nach $8000 schreiben. Basic- 
Start nach $8000. 

Wenn Sie den genauen Ablauf studieren wollen, sind die 
REM-Zellen eine wertvolle Hilfe. 


- REVERSE 

- INSERT 

- DELETE 


-CTRL+- 


- Tasten wie In Basic 

- fügt an die Stelle, an der sich 
der Cursor befindet, ein SPACE 
ein und verschiebt die restliche 
Zeile nach rechts 

- Cursor ein Zeichen nach links. 
Das Zeichen, auf dem sich der 
Cursor vorher befand, wird 
durch die Zeile, die nun einge¬ 
rückt wird, gelöscht. 

- Maske erzeugen. 


Mit <CTRL — > wird das Basic-Programm erzeugt. Da¬ 
mit Sie sehen, wie weit der Generator mit seiner Arbeit ist, 
wird das ausgelesene Zeichen durch ein weißes Sternchen 
überschrieben. 

Nun folgen die Fragen nach Startzeile (Nummer der er¬ 
sten Basic-Zelle) und Schrittweite, und die Maske wird geli¬ 
stet. Hier können Sie die Maske ausprobieren und abspei¬ 
chern. 


Programmbehandlung 

Um das Programm zu beschleunigen, sollte man es com- 
pilieren (auf der Programmservice-Diskette ist eine compi- 
lierte Version enthalten). 

Wenn Sie eine Maske gespeichert haben, kann man fol¬ 
gendermaßen ins Hauptprogramm zurückkehren, ohne es 
neu laden zu müssen: 

Compilierte Version: POKE 44,8:RUN 

Basic-Version: SYS 64738, danach den Einzeller für RE- 

NEW von H. und M. Sprave: 

POKE2050,8;SYS42291:POKE46,PEEK(35)-(PEEK(781) 

>253):POKE45,PEEK(781) 

•h2AND255:CLR:RUN (Roman Barthe/kn) 


Kurzinfo: Maske 


Programmart: Programmlar-Tool 

Laden mit: LOAD ''MASKE',6 

Starten mit: Nach dem Laden RUN eingeben 

Eingaben über; Tastatur 

Besonderheiten; Komfortables Generieren von Basic-Routlnen für 

Blldschirmmasken 

Programmautor: Roman Barthe 
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10 REM •«•«•••«•«*••••••••*•*•«•*•«»•* 

<148> 

310 

IF S<e THEN 320 

<e 86 > 

13 REM • BILDSCHIRMMASKENGENERATOR « 

<Z39> 

315 

Z«-CHR«(1S3)+CHR«(166)*R1GHT«(STR«(S), 


20 REM * MIT INTELLISENTEN * 

<069> 


LEN (STR« (S) )-l) + “> •'+CHR«(34)+RIQHT*(Z« 


25 REM « OPTIMIERUNGSEIGENSCHAFTEN • 

<070> 


,LEN(Z«)-S) 

<233> 

30 REM * UNO GROESSTMOEBLICHER • 

<ee 6 > 

320 

IF LEN(Z«)<-65 THEN 345 

<024> 

35 REM • SPEICHERPLATZ-ERSPARNIS • 

<249> 

325 

J-J+l9Z«(J)-LEFT«(Z«,65)+CHR«C34)+"|" 

<16S> 

40 REM • VERSION 2.0 « 

<e36> 

350 

J-J+l 9 Z«(J)-RIGHT«(Z«,LEN(Z«>-65} 

<I24> 

45 REM • MRITTEN 3/36 BY ROMAN BARTKE« 

<242> 

335 

IF PEEK(I>-141 THEN Z« < J)-Z« (J >-»CHR« (3 


50 REM * MAX-V0N-LAUE-STR.29 * 

<03S> 


4)+”j" 

<0O9> 

55 REM * 5630 REMSCHEID 11 * 

<09l> 

540 

GOTO 360 

<126> 

60 REM • TEL. 02191/63753 • 

<223> 

345 

J-J+1 

<094> 

65 REM * * 

<114> 

350 

IF H-1 THEN H-0lZ«(J)-Z«iaOTO 360 

<209> 

70 REM *Z.150 EINZ. V.K.SMOCZYK 12/85* 

<e41> 

355 

IF H-0 THEN Z«(J)-Z«+CHR«(34) + ''|" 

<136> 

75 REH *»•*•**»******«*•**««****••»«*«» 

<213> 

360 

Z#-"'i,2-0 

<13S> 

80 t 

<eS 6 > 

365 

NEXT 9 BOTO 410 

<204> 

B5 : 

<0617 

370 

REM HINTERE SPACES BESEITIGEN 

<B96> 

90 POKE 55.25SlPaKE 56,127iCLRtREM BASICRA 


375 

IF R-1 DR RI6HT«(Z«,1)<>” "THEN RETURN 

<219> 

M-ENDE NACH 3276B 

<076> 

380 

D-LEN<Z«} 

<0S4> 

95 GOTO 755 

<0S5> 

385 

D-D-1 

<046> 

100 REM PASS 1 

<014> 

390 

IF M1D«(Z«,D,1>-CHR«(32)THEN 385 

<07S> 

105 POKE B37,PEEK(53272)iP0KE 53281,GiPOKE 


395 

Z«-LEFr«(Z«,D) 

<104> 

33200,60 

< 21 I> 

400 

H-1 1 RETURN 

<069> 

110 CLRtFOR I>704 TO 704'»63aREAD OsNEXT 

<172> 

405 

1 

<127> 

115 DIM C»<15>9FOR 1-0 TO IStREAD C«tC«<I) 


410 

REM FOR-NEXT EINOAUEN (AB 3 GLEICHEN Z 


•C*;NEXT 

<12I> 


EILEN) 

<025> 

120 ZA-24:SA-39:R-0lF-16tS-0tM-49155 

<I29> 

415 

DIM ZZ»(SS)9E-liZ-l9REM SS-J+4 MAXIMAL 


125 IF PEEK(Z023)-3Z OR(PEEK<2023)-96 AND 



E ZEILENANZAHL 

<17e> 

PEEK<2)"1)THEN POKE B34,0iQOTO 135 

<I4S> 

420 

A-E9E-A+1:IF E>J+1 THEN 510 

<ei3> 

130 POKE 832,PEEK<2B23) .-POKE 033,PEEK(5629 


425 

IF Z«(A)-Z«(E)ThiEN E-E+liGQTO 425 

<175> 

S)ANO 15:P0KE 834,1 

<031> 

430 

REM A,E-A,Z«(A) STEHEN HIER BEREIT 

<B 2 t> 

135 FOR Z-0 TO ZA:B-0:FOR S-0 TO SA 

< 222 > 

435 

IF L£FT«<Z«<A),2)-CHR«(lS3)+CHR«(166)T 


140 X-PEEK<4B*Z-i-S-fl024> :C-PEEK(40*Z+S-<-5529 



HEN 3P-1:G0T0 445 

<223> 

6 )AND 15 

<13S> 

440 

SP-0 

<186> 

145 POKE SS2?6->-40*Z+S, laPOKE 10Z4+40*Z*S, A 


445 

IF(E-A)<>1 THEN 460 

<007> 

SC ('■*•') 

<061 > 

430 

Z-Z+liIF SP=0 THEN ZZ#(Z)-CHR»(I53)+CH 


150 XX-X*(X>127)*1289M-XX-(XX>-1 AND XX<32 



R«(34) 

<245> 

OR XX>95)*64-<XX>63 AND XX<96)*32 

<216> 

455 

ZZ«(Z>-ZZ«(Z)+Z«{A)9GOTO 420 

<Be4> 

ISS IF PEEK(2)-1 AND U-160 THEN W-32 

<157> 

460 

IF(E-A)<>2 THEN 485 

<156> 

160 IF R-0 AND X>1Z7 THEN R-19M-M*l9POKE M 


- 465, 

7-Z+2sIF SP-0 THEN ZZ«(Z-l ) -CHR«(153)+ 


,ASC<"tRVSONI"):B=lsBOTO 170 


1 . .r 

<BBa> 

165 IF R=1 AND X<127 THEN R=09M-M+19POKE M 


470 

22«(Z-1)-ZZ«(Z-1)+Z«(A) 

<070> 

,ASC("tRVOFF>"> 

<173> 

475 

IF SP-0 THEN ZZ«<Z)-CHR«(1S3)+CHRS(34) 

<057> 

170 IF C=F THEN 190 

<255> 

4B0 

ZZ«(Z)-ZZ«{Z)+Z«<A*1):G0T0 420 

<167> 

175 IF{M-32 OR U-16B)AND R-0 THEN 190 

<0O3> 

405 

Z»Z+39ZZ«(Z-2>=CHR*(129)+"I"*CHR»(17B) 


100 IF EF-0 THEN POKE 838,ASC(C4<C>):EF-1 s 



+"1"+CHR»(164) 

<235> 

F=C:GDTO 1909 REM ERSTE FARBE 

<120> 

490 

ZZ«(Z-2)-ZZ«<Z-2)»RIGHT«(STR«(E-A),LEN 


105 F-C 9 M-M+I 9 POKE H,ASC(C*(C)) 

<119> 


(STR*(E-A)>-1) 

<163> 

190 M-M+l.-POKE M,W 

<10l> 

495 

IF SP-0 THEN ZZ»(Z-1>-CHR«(153)+CHR#(3 


195 IF W03Z OR R-1 THEN B-llREM FALLS LEE 



4) 

<164> 

RZEILE.DANN FLAB FUER CRSR-DOUN 

<168> 

500 

ZZ«(Z-1)-ZZ«<Z-1)»ZC(A):ZZ«(Z)-CHR«(13 


200 NEXT 

<210> 


0) 

<113> 

205 IF B-1 THEN 215 

<251> 

SOS 

GOTO 420 

<235> 

210 M«M-39lPaKE M,ASC (■'<DOWN>'■ ) 9 GOTO 230 

<B10> 

510 

REM ERSTE ZEILE GENERIEREN 

<toi> 

215 M-M+1 

<BZZ> 

SIS 

EZ«-CHR«<1S1 } »"53281,"»RIGHT«(STR«(PEE 


220 lF(W-32 □R<W-96 AND PEEK(2)-1 }> AND R-B 



K(49154) > ,LEN(STR«(PEEK(49154)) )-l) 

<213> 

THEN POKE M,13lGOTO 230 

<192> 

S20 

EZ«-EZ«»"9"»CHR«(151)+"S32O0," 

<1B4> 

225 POKE M,141 

<0S4> 

523 

EZ«-EZ«»RIGHT»(STR*(PEEK(49155)J,LEN<S 


230 IF Z-24 AND B-1 THEN POKE 039,1 

<BB9> 


TR«(PEEK(49155) ) >-l) 

<074> 

235 NEXT 

<245> 

530 

EZ«-E2«»"i-»CHR«(151)+"53272,"»RIGHT«( 


240 POKE 49152,INT(M/256)9PDKE 49153,M-PEE 



STR«(PEEK(037) ) ,LEN(STR«(PEEK(837) ) )-l 


K(49152)*256 

<Z26> 


) 

< 0 ae> 

245 REM PASS 2 

<032> 

535 

EZ*-EZ«»"9"+CHR«(133>+CHR«(34)+"<CLR>" 


250 CLR 

<iBe> 


»CHR«(PEEK(838))»CHR«(34)»"|" 

<224> 

255 DIM Z«<S1) 

<064> 

540 

ZZ«(1)-EZ««EZ«-"" 

<ie5> 

260 M-PEEK(49152)•2S6+PEEK(49153) 

<006> 

545 

REM GENERIERUNG DER LETZTEN ZEILE 

<12B> 

265 FOR 1-49156 TO M 

<143> 

550 

IF PEEK<839)-1 AND PEEK(e34)-e AND ZZ« 


270 IF CHR»(PEEK(I>)-"{RVSON)‘'rHEN R-1 

<229> 


{Z)<>CHR*<130)THEN ZZ«(Z)-ZZ«(Z)»"(HOM 


275 IF CHR*{PEEK(l))-"tRVaFF>''THEN R-0 

<240> 


E>"lGOTO 650 

<216> 

280 IF PEEK(l)-14t THEN 295 

<221 > 

555 

REM SCHLEIFE GEHT NICHT BIS ZUR LETZTE 


285 IF PEEK(I}-13 THEN GOSUB 37S9BOTO 295 

<079> 


N ZEILE 

<254> 

290 Z*-Z*+CHR»(PEEK(1))9QOTO 365 

<117> 

560 

IF ZZ«(Z)-CHR«(130>AND PEEK(B34)-0 THE 


295 REM SPC(X] EINOAUEN (WENN MEHR ALS 7 E 



N GOSUB S909ZZ«(Z>-ZZ«(Z>»"{HOME}'‘9eOT 


PACES) 

<1B6> 


□ 650 

<1B3> 

300 L-0:S-0 

<155> 

565 

REM LETZTES ZEICHEN POKEN, FALLS DAS Z 


305 L-L*1:IF MIO«(ZS.L,1)-CHR«(32)AND R-0 



EICHEN NICHT SPACE IST 

<157> 

THEN S-S-i-liGOTO 305 

<04S> 

570 

IF PEEK(834)-0 THEN 650 

<145> 

Llsting 1. »Maske», der komfortable Maskengenerator mit 
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575 IF ZZ*(Z)<>CHR*(130)THeN 625 
SB0 ßOSUB S90:BOTQ 625 

585 REM FOR-NEXT SCHLEIFE UM 1 ERNIEDRIGEN 
590 Z«-ZZ*<Z-2)9IF VAL<RIGHT*<Z»,2))“0 THE 
N AN^lsGOTO 600 
595 AN-2 

600 Z1»-LEFT«<Z*,LEN(Z»»-AN) 

605 Z*-STR*(VAL(RIGHT*<Z*,AN))-l)iZA*-RI6H 
T*(Z«,LEN(Z*)-1){ZZ«(Z-2)>Z1S+ZA* 

610 IF AN-1 AND ZA#-"2"THEN ZZ»(Z-2>-ZZ»(Z 
-1)tZZ»(Z)-ZZ»(Z-l)IQOTO 620 
615 Z>-Z-fliZZ*(Z)-ZZ*<Z-2) 

620 RETURN 

625 ZZ»(Z)-LEFT»(ZZ»(Z),LEN(ZZ*(Z)>-3)+"<H 
□ME>"+RIGHT*(ZZ»<Z),2) 

630 Z-Z+liZZ«(Z)-CHR»(151)+"2023,"+RrGHT*( 
STR*{PEEK(032J >,LEN(STR»(PEEK(B32>))-l 
) 

635 ... 151)+"56295, •' 

640 ZZ»<Z)-ZZ*<Z)+RIGHT*(STR*(PEEK(833)),L 
EN(STR*(PEER(833))>-1) 

645 REM MASKE ALS PROGRAMM 

650 PRINT"<CLR,BREY 3J";!POKE 53281,lIsPOK 
E 53200,11:POKE 53272,21 
655 PRINT"<HDME,3D0WN,3RIGHT}STARTZEILE:3S 
PACEJ?" 

660 PRINT"<3RIGHT,DÜWN>SCHRITTWEITE TtLEFT 
,2UP>"j:INPUT SZ» 9 PRINT"{DOWN >"SPC(16) 
; 9 INPUT SW* 

665 SZ-VAL<5Z«)9SM=VAL(SM*) 

670 IF(SZ+2>63999>0R(Z*8W+SZ~1>63999>DR SW 
<1 THEN 655 

675 EZ-SZ+Z*5W-l9V=0sKA-3276B 
680 FOR ZN=SZ TO EZ STEP SW 9 V-V+I 
685 K-KA+LEN(ZZ*(V)>+6 

690 KA=KA+l9POKE KA,K-INTCK/236)*256lKA*KA 
+I 9 POKE KA,lNT(K/256> 

695 KA*KA+1jPOKE KA,ZN-INT(ZN/256)*256:KA= 
KA+lsPOKE KA,INT<ZN/256) 

700 FÜR I«1 TO LEN(2Z#(V));KA=KA+I:POKE KA 
,ASC<MID*(ZZ*(V),1,1 ))9 NEXT 
705 KA=KA+liPOKE KA,0;NEXT 
710 KA=KA+2{POKE KA-I,09POKE KA,0 
715 REM VON 2049 AUF 32769 UMSCHALTEN 
720 KA=KA+liPOKE 835,KA-INT(KA/256)*2569 PO 
KE 836,INT(KA/2S6) 

723 PRINT"{CLR>Pfl32768,09Pfl43,l;Pfl44,1289P 
£45,P£(835)9 P0KE46,P£(836):Pfl55,09 8356 
,160 

730 PRINT"{HaME,4DaWN>CLR 
735 PRINT"{HOME,7DOWN)LIST" 

740 POKE 631,199P0KE 632,13sP 0KE 633,139PD 
KE 634,13iP0KE 198,4!END 
743 s 
750 : 

755 REM *** BM0/EDITOR *** 

760 BUSUB 1300 

765 XD-16:yD-44:Xl>BiVl-B 

770 X'’XDtY>yD9K>09POKE V+1, Y 9 Z-(X>255) 9 POK 
E V,X+(Z*256)9POKE 53264,Z*{-1> 

775 POKE V+2,09POKE V+3,09POKE V+21,3 
780 GET A»9lF A*-""THEN 780 
785 A-1* (A»-" {DOWN>") +2*(A*»" {UP>‘' > +3* (A*- 
" {RIGHTJ")+4»(A*-"{LEFT)")+5*(A*-"{HOM 
E>")+6*(A*-"CCLR >"> 9 A-A*-1 
790 IF A»I THEN Y-V+SjIF V>236 THEN Y-2369 
GOTO 880 

795 IF A=2 THEN Y-Y-8:IF Y<44 THEN Y-44:BD 
TO 880 

800 IF A>«3 AND X>328 AND Y-236 THEN 880 
B05 IF A-3 THEN X-X+S9IF X>32e THEN X-I 69 A 
-IlQOTD 790 

810 IF A«4 AND X-16 AND Y-44 THEN BB0 
815 IF A-4 THEN X-X-B:IF X<16 THEN X-32B:A 
■•29BOTO 795 

820 IF A«3 AND K-0 THEN PRINT"{HOME)"J 1 GOT 
0 765 

825 IF A»6 AND K-0 THEN PRINT"ICLR >"99 GOTO 
763 

830 IF A=0 AND K=0 THEN 930 


<247> 

<128> 

<109> 

<027> 

<063> 

<181> 

<131> 

<060> 

<172> 

<170> 

<193> 


<160> 

<245> 

<0e3> 

<227> 

<B30> 

<231> 


<109> 

<244> 

<19S> 

<135> 

<0I2> 

<12B> 

<2237 

<1B1> 

<214> 

<132> 

<15t> 

S253> 


<141> 

<206> 

<133> 

<0B7> 

<213> 

<2I8> 

<191> 

< 000 > 

<0607 

<1647 

<0107 

<0857 


<1727 

<0347 

<1747 

<1207 

<0747 

<0357 

<1987 

<0377 

<0907 

<2397 


835 GOTO 680 <1657 

840 REM ZEICHEN SCHREIBEN <2237 

845 IF A*-CHR*(13)THEN 880 <0547 

850 IF A»-CHR*(34)THEN 780 <0477 

B5S A-ASC(A*)tB-A-161-33*(A<255)-64*(A<192 

)-32*(A<160)+32*(A<96>-64»(A<64) <2037 

860 IF RV-1 THEN B-B+12B <1047 

865 POKE 1024+Yl*40+X1,B <1897 

870 POKE 5S296+Yl*40+Xl,PEEK(V+39>9A>3{eOT 

□ 800 <2077 

873 REM SPRITES KOORDINIEREN <0617 

800 IF K-1 THEN 905 <1107 

885 2-(X7255>9P0KE V,X+(Z*256)iPOKE 53264, 

Z*(-l)iP 0 KE V+l,y <0037 

890 XI-(X-16)/BjY1-(Y-44)/8 <2007 

895 IF LN-1 THEN K-1 <2267 

900 GOTO 780 <2427 

905 Z-(X725S) 9 POKE V+2,X+(Z*2S6>9P0KE 5326 
4,PEEK(53264)AND 1 (JR (Z* (-2) > 9 POKE V+3 
»Y <1127 

910 IF A*-CHR*(13>THEN X2-(X-16)/8lY2-<y-4 

4)/a:IF X 10 X 2 AND VI<7Y2 THEN 780 <2187 

915 IF A*-CHR»(13)AND LN-1 THEN 1155 <1927 

920 GOTO 780 <0067 

925 REM ZUSATZFUNKTIONEN <2257 

930 A-l*(A»-"{RVS0N>")+2*(A*-"{RV0FF>")+3* 

(A*="{CTBL-XJ")+4*(A»-"{CTRL-Y>")+5*(A 
«-•'{CTRL-Z)“) <1317 

935 A-A+ 6 *(A»-"{Fl>")+7*(A»-"{F3>")+ 8 *(A*- 
" <F5)"J+9*(A*=-"{F7>")+10*[A*-CHR*<148) 

) <0897 

940 A-A+11*{A*-CHR*(20))+12*(A*-"{CTRL-L>" 
J+13*[A*-"{CTRL-F>"){A»A*-lsIF A-0 THE 
N 990 <2067 

945 REM GONG <1897 

950 POKE 54296,ISiPOKE 54277,0sPOKE 54270, 

2479P0KE 54276,I79POKE 54273,20 <1627 

955 POKE 54272,0:FQR I-l TO 100;NEXT:POKE 
- . .j5i?’76,16 <2337 

9'6G^. A=ll THEN GOSUB 1260:A-4:GOTO 810 <1137 

965 IF A-12 THEN 1150 <1557 

970 IF A=13 THEN 1285 <0227 

975 DN A GOSUB 1015,1020,1110,1125,1030,11 

95,1210,1220,1225,1235 <0567 

980 GOTO 780 <0667 

985 REM CURSQRFARBEN <0377 

990 A=1*(A*-"{BLACK!")+2*(A»-"{WHITE!")+3* 

(A*-"{RED!")+4*(A*-"{CYAN!")+5*(A*-"{P 
URPLEl“)+6*(A*="{GREEN!"> <1587 

995 A-A+7*(A»-"{BLUE!")+ 8 *(A»-"{YELLOW!")+ 

9*(A»-"{ORANGE!")+10*(A*--{BROWN!")+11 
*(A*-"{LIB.RED!")+12*(A»-"{GREY 1!") <1727 

1000 A-A+13*(A*-"{QREY 2!“)+14*(A*-"{LIQ.G 
REEN J") +15*(A»-"{LIQ.BLUE!")+16*(A*-" 

{GREV 3I"):A-A*-1 <0327 

1005 IF A-O THEN S4S <2557 

1010 PRINT CO«(A)}lPOKE V+39,A-1:POKE V+40 

,A-l90aTD 780 <0747 

1015 RV-!tRETURN:REM RVS/ON <1547 

1020 RV-0:RETURN9REM RVS/OFF <1737 

1025 REM ZEILE ZENTRIEREN <1797 

1030 .. <2077 

1035 IF I<40 THEN CH-PEEK(1024+Z*4O+I>iIF 
CH-32 GR CH-96 THEN Ct-Cl+19l-I+l:BGT 
0 1035 <1347 

1040 1-39 <0447 

1045 IF 17-1 THEN CH-PEEK(1024+Z*40+I)9IF 
CH-32 OR CH-96 THEN C2-C2+1sI-I-liBOT 
0 1045 <1737 

1050 IF C1-C2 THEN 780 <0507 

1055 FOR I-Cl TG 40-C29ZE«-ZE»+CHR*(PEEK(1 
024+Z*40+I))+CHR»(PEEK(55296+Z»40+l)) 

»NEXT <16l> 

1060 IF C17C2 THEN 1085 <1317 

1065 C-(C2-Cl)/2 <2477 

1070 GOSUB 1110 <0587 

1075 FOR I-Cl+C TO 40-C2+C9ZZ-ZZ+29POKE 10 

24+Z*40+I,ASC(MID»{ZE*,ZZ-l,l)) <0067 

1080 POKE 55296+Z*40+I,ASC(niD*(ZE*,ZZ,l)) 

:r«XT9B0T0 1105 <1847 
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lass 

1090 

1095 

1100 

lies 

1110 

ms 

1120 

1125 

1130 

1135 


1140 

1145 

1150 

1155 

1160 


C-<Cl-C2>/2 

GosuB nie 

ZZ-OiFOR 1-Cl-C TO 40-C2-C:ZZ»ZZ+2sPa 
KE 1024♦2*40+1,ASC(MID* < 2E*,Z Z-1,11> 
POKE 5SZ96+Z*40+I,ASC(NID*(ZES,ZZ,1)> 
:NEXT 
RETURN 

REM ZEILE LOESCHEN 

PRINT"(H0NE>";LEFT*(0*,V1)jS»»”<HONE> 

"IPOKE lO24+Yl*40+39,52 

RETURN 

REH SPALTE LOESCHEN 

IF Xl-39 THEN FOR I«0 TO 24IPCIKE 1024 
♦1*40+39,32iNEXTiGaT0 1140 
PRINT"<H0HE>"|SPC(X1)IiFOR I-l TO 24i 
PRINT"<SPACE,DOWN,LEFT>"|lNEXT:PRINT" 
{HOHE>";iPOKE 1024+24*4e+Xl,32 
RETURN 

REH LINIE ZEICHNEN 
LN>li60T0 B85 

XD>X2*B+169 yD>V2*&+44:XN-XZs YN-Y2 
Z>PEEK<ie24+Xl+4e*Yl)■C>'PEEK<S5296+X1 
+40*Y1> 

X-Xl:Xl-X2sX2-X:B0T0 11 


1163 IF X1>X2 THEN 
75 

IF Y2>Y1 THEN 


1170 

1175 


11B0 

IIBS 

1190 

1195 

1200 

1205 

1210 

1215 

1220 

1225 

1230 

1235 

1240 

1245 

1250 

1255 

1260 

1265 

1270 

1275 

1260 

12S5 


1290 

1295 

1300 

1305 

1310 

1315 

1320 

1325 


1330 

1335 

1340 

1345 

1350 


Y«Yl:Yl-Y2sY2-Y 
IF Y1*V2 THEN FOR I“X1 TO XZsPOKE 102 
4+40*Yl+I,Z e POKE 5S296+40*V1♦I,Cs NEXT 
iGOTO lies 

FOR I«YZ TO YlrPOKE 55296+40*I+X1,C:P 
OKE 1O24+40*I+X1,Z:NEXT 
Xl=XN:YI-YN:LN-a.-K-0:GOTa 770 
REM GROUND+1 

G=PEEK(53201)AND ISsIF G<1S THEN ß-G+ 
llPOKE 53281.GsRETlffiN 
IF G=1S THEN G»0:POKE 532G1,6:RETURN 
REM BORDER+l 

BO=PEEK(53280)AND 15:IF ßO<15 THEN BO 
=BO+1:POKE 53280,BOsRETURN 
IF B0=15 THEN BD=0:P0KE 53280,BO:RETU 
RN 

POKE 650,255sRETURNsREri REPEAT/ON 
POKE 650,0»RETURN:REM REPEAT/OFF 
REM INSERT 

FOR 1=39 TO XI STEP-lsPCMCE 55296+Yl*4 
0+1,PEEK(55296+Y1*40+I-1) 

POKE 1024+V1*40+I,PEEK(1024+Y1*40+I-l 
)aNEXT 

POKE 1024+Y1*40+X1,32 

RETURN 

REM DELETE 

FOR I=X1 TO 39JP0KE 55296+Vl«40+I,PEE 
K(55296+Y1*40*I+1> 

POKE 10Z4+Y1<40+I,PEEK{1024+Y1*40+1+1 
)»NEXT 

POKE 1024+Yl*40+39,32 
RETURN 

REM EDITOR-ENDE 

FOR 1-15 TO 0 STEP-I»POKE 532Bl,IlP0K 
E 53280,IiNEXTaPQKE 49154,GaPOKE 4915 
5.BO 

POKE 53261,GaPOKE 532S0.BO 
POKE V+21,0a60TO IBS 
REM INIT/BPRITE-INIT 
GOSUB 1365 
D*-"<Z4D0WN>" 

S*-"{39SPACE}" 

FOR 1-832 TO 639tPOKE I.BaNEXT 

01M CO*(16)» CO«-"{BLACK,WH t TE,RED,CYA 

N,PURPLE,GREEN,BLUE,YELLOW,ORANGE,BRO 

WN,LIO.RED,GREV l.GREY 2,LIG,GREEN,LI 

G.BLUE,GREV 3>":FOR I-l TO LEN(CO*>:C 

OS(I)-MID*<CO*,I,1)»NEXT 

FOR 1-704 TO 704+63:READ QaPOKE I,0:N 

EXTaPOKE 2040,llaPOKE 2041,11 

V-53248aP0KE V+39,15»P0KE V+40,15 

RETURN 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1, 

255,128,1,0,120,1,0,126,1,0,128 

DATA 1,0,128,1,0,128,1,0,120,1,0,126, 


<205> 

<078> 

<047> 

<137> 

<147> 

<23B> 

<111> 

<162> 

<146> 

<117> 


<039> 

<1B2> 

<e9e> 

<072> 

<125> 

<eii> 

<057> 

<062> 


<01O> 

<0067 
<ie5> 
<014> 

<195> 
<Z02> 
<1067 

<164> 

- Ol 

<125> 
< 012 > 
<229> 
< 122 > 

<0527 

<109> 
<229> 
<036> 
<Z36> 

<143> 

<070> 
<184> 
<061> 
<ia6> 


<124> 

<B04> 

<119> 

<242> 

<0407 

<075> 

<146> 

<237> 


<237> 

<Z05> 

<062> 

<ize> 

<156> 


1355 

1360 


1365 

1370 


1375 


1380 


1385 


»39? 


1391 


1395 


1400 


1405 

1410 

1415 

1420 

1425 

1430 

1435 

1440 

1445 


1,0,128,1,255,128,0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0,0,0,0,0,0 
DATA"{BLACK!"."{WHITEJ","{RED>"."{CYA 
N>","{PURPLE!","{GfffiENJ","{BLUE!","{Y 
ELLON!","{ORANGE!","{BROUN!","{LIB.RE 
D!","{BR£Y 1!“,”{8REY 2!“,"{LIB.BREEN 
!","{LIQ.BLUE!","{0REY 3!" 
e-lliBO-SaPOKE 53281,GiPOKE 53280,80 
PRINT"{CLR,3DaWN,6SPACE,RVS0N,BREY 3, 
6SPACE,RVOFF,3SPACE,RVSON,38PACE,RVOF 
F,38PACE,RVSON,3SPACE,RVOFF,2SPACE,RV 
GON,7SPACE,RVOFF > 

PRINT"{6SPACE,RVSON,SPACE,BLACK,SPACE 
,QREY 3,SPACE,BLACK,38PACE,GREY 3,SPA 
CE,RVOFF,2SPACE,RVSON,8PACE,BLACX ,2SP 
ACE.BREY 3,SPACE,RVOFF,SPACE,RVSON,SP 
ACE,BLACK,2SPACE,GREV 3,SPACE,BLACK,S 
PACE,RVOFF,SPACE,RVSON,GREY 3,SPACE,B 
LACK,SPACE,GREY 3,SPACE,BLACK,3SPACE, 
6REY 3,SPACE,BLACK,SPACE,RVOFF! 

PRINT"{6SPACE,RVSON,GREV 3,SPACE,BLAC 
K,SPACE,GREY 3,SPACE,BLACK,SPACE,RVOF 
F,2SPACE,RVSON,GREY 3,SPACE,BLACK,SPA 
CE,RVOFF,SPACE.RVSON,GREY 3,SPACE,BLA 
CK,SPACE,RVOFF,2SPACE,RVSON,BREY 3,SP 
ACE,BLACK,2SPACE,RVOFF,SPACE,RVSON,BR 
EY 3,SPACE,BLACK,SPACE,RVOFF,SPACE,RV 
SON.GREY 3,SPACE,BLACK,SPACE,GREV 3,S 
PACE,BLACK,SPACE,BVOFF,2SPACE,RVSON,2 
SPACE,RVOFF! 

PRINT"{6SPACE,RVSON,GREY 3,6SPACE,BLA 
CK,2SPACE,RVOFF,SPACE,RVSON,GREY 3,SP 
ACE,BLACK,SPACE,GREY 3,SPACE,RVOFF,SP 
ACE,RVSON,BLACK,2SPACE,GREV 3,SPACE,R 
VOFF,SPACE,RVSON,SPACE,BLACK,SPACE,RV 
OFF,SPACE,RVSON,GREV 3,SPACE,BLACK.SP 
ACE,GREY 3,SPACE,BLACK,SPACE,GREY 3,3 
SPACE,RVOFF! 

PRINT"{6SPACE,RVSON,SPACE,BLACK,SPACE 
,»EY 3,SPACE,BLACK,3SPACE,GREY S.S'A 
CE,RVOFF,25PACE,RVSON,SPACE,BLACK.SPA 
CE.SREY 3,2SPACE,RVOFF,SPACE,RVSON,28 
PACE,BLAOC,SPACE,GREY 3,SPACE,BLAC3<,S 
PAC£ ,RVOFF,SPACE!"; 

PRINT"{RVSON,GREY 3,SPACE,BLACK,SPACE 
,GREY 3,3SPACE,BLACK,SPACE,GREY 3,SPA 
CE,BLACK,SPACE,RVOFF! 

PRINT"{6SPACE,RVSON,GREY 3,SPACE,BLAC 
K,SPACE,GREY 3,SPACE,BLACK,SPACE,RVOF 
F,2SPAC:E,RVS(W,6REY 3,SPACE,BLACK,SPA 
CE,RVOFF,SPACE,RVSON,l»EY 3,SPACE,BLA 
CK,SPACE,GREY 3,SPACE,BLACK,SPACE,6RE 
Y 3,SPACE,BLACK,SPACE,GREY 3,SPACE,BL 
ACK,SPACE,GREY 3,SPACE,BLACK,GPACE.RV 
□FF,SPACE,RVSON,GREY 3,SPACE,BLACK,SS 
PACE.GREY 3,SPACE,BLACK,SPACE,RVOFF! 
PRINT"{6SPACE,RV80N,6REV 3,68PACE,BLA 
CK,2SPACE,RVaFF,6PACE,RVSON,GREV 3,3S 
PACE,BLACK,SPACE,RVOFF,SPACE,RVSON,SP 
ACE,GREY 3,3SPACE,BLACK,SPACE,RVOFF,8 
PACE,RVSON,GREY 3,7SPACE,BLACK,SPACE, 
RVOFF! 

PRINT"{7SPACE,RVSON,6SPACE,RVOFF,38PA 
CE,RVSON,3SPACE,RVOFF,3SPACE,RVSON,3S 
PACE,RVOFF,28PACE,RVSON,7SPACE,RVOFF! 
PRINT" {2D0WN,6SPACE!B{0REY SÜLDSCHIR 
n<YELLOW!-{BLACK!M{GREV 3>ASKEN{YELL0 
U!-{BLACK!6{BREV 31ENERAT0R 
N*-CHR«(S2)+CHR*(79)+CHR»(77)+CHR*(65 
)+CHR*(78)+CHR«(32)+CHR«(66)+CHR«(65) 
N«-N*+CHR*(82)+CHR«(84)+CHR*(75)+CHRS 
(69) 

PRINT"{DOWN,4SPACE,YELLCM!WRITTEN 3/1 
9S6{2SPACE!BY "(N* 

POKE 2,0lPRINT"{3DOWN!"SPC<8>"{SREY 3 
!SOLLEN SHIFT/SPACE' DEN" 

PRINT"{4SPACE!'SPACE'-ZEICHEN BLEICH 
SEIN ? J{3LEFT!";iINPUT A* 

IF A*<>"N"THEN POKE 2,1 
RETURN 


Listing 1. »Maske« (Schluß) 


<106> 

<17l> 


<215> 

<iia> 


<2B7> 


<057> 


<109> 


<206! 


<123> 


<ei8> 


<eia> 


<037> 

<e8i> 

<127> 

<099> 

<233> 

<146> 

<117> 

<20e> 

<247> 

<233> 
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Unsere erste Knobelecke war 
ein voller Erfolg. Unsere Leser 
haben sich bei der Lösung der nicht 
ganz einfachen Aufgabe wieder ein¬ 
mal selbst übertroffen. Wir stellen Ih¬ 
nen die drei Sieger mit ihren Listings vor. 

I m Sonderheft 40 fanden Sie zum ersten Mal die-Knobel- 
ecke«. Hier konnten alle Basic-Programmierer ihr Kön¬ 
nen beweisen: Es ging darum, ein Programm zu schrei¬ 
ben, das in kürzester Zeit eine bestimmte logische Aufgabe 
löst. Für diejenigen, die diese Ausgabe nicht besitzefr, hier > 
nur ganz kurz noch einmal die Aufgabenstellung: 

Fünf Freunde haben einen Schatz gefunden. Nachein¬ 
anderwirft nun jeder der fünf zuerst eine bestimmte Anzahl 
Münzen in einen Fluß (der erste acht, der zweite neun, und 
so weiter). Die jeweils verbleibende Anzahl läßt sich immer 
genau (ohne Rest) durch fünf teilen. Dieser fünfte Teil wird 
im Gepäck der Jeweiligen Person versteckt, worauf die 
nächste Person wieder erst Münzen in den Fluß wirft und 
sich dann ihren Anteil nimmt. 

Die daraufhin verbleibende Anzahl n wird wieder genau 
durch fünf geteilt. Die Aufgabe: Wie viele Münzen waren 
ganz am Anfang vorhanden, wie viele nach der Verteilung 
(Anzahl n)? Ein Basic-Programm sollte beide Werte mög¬ 
lichst schnell berechnen und ausgeben. 

Das Echo auf diese Aufgabe war überwältigend. Da wir 
natürlich nicht mit der Stoppuhr die Zeiten nehmen konnten 
und sogar die im Computer eingebaute Uhr TI für diesen 
Zweck zu ungenau war, mußten wir mit dem Laufzeit-Meß- 
System von Franz Stoiber aus der 64'er 4/86 die Zeiten auf 
den zehnten Teil einer Millisekunde genau messen, zu sehr 
ähneln sich die Laufzeiten der Konkurrenten. 


Der dritte Sieger 


So ergaben sich drei Gewinner, deren Programme sich in 
der Laufzeit nur ganz knapp unterscheiden. Wir wollen Ih¬ 
nen die Sieger vorstellen (siehe auch Tabelle 1 und Textka¬ 
sten). 

Das Programm von Erich Wollenberg aus Filsum benö¬ 
tigt 237,4 ms, um die richtigen Ergebnisse 9363 und 3040 
zu berechnen (Listing 1). Es wurde aus der folgenden For¬ 
mel entwickelt, aus der die Aufgabe direkt zu ersehen ist: 
z = ((((20+12)*f+ll)»f+10)»f+9)»f+8 

z ist die Anzahl der gefundenen Münzen und f die Anzahl, 


die am »Morgen danach« noch vorhan¬ 
den war. 

Damit die Forderung nach der ganz¬ 
zahligen Teilbarkeit erfüllt ist, müssen die 
Klammerausdrücke vom Typ Integer sein. 
Die Formel führte zunächst zu folgendem 
Versuchsprogramm: 

10 TI$='000000" 

20 F=5/4:V=20 
30 I=I+V:Z=I»F 

40 Z=(Z+12)*F:IF Z>INT(Z)THEN30 
:nLI5ip^»;z+ll)»F:IF Z>INT(Z)THEN30 
60 Z=(Z+10)»F:IF Z>INT(Z)THEN30 
70 Z=(Z+ 9)»F:IF Z>INT(Z)THEN30 
80 Z=Z+8 
90 PRINT Z,I 

100 PRINT TI/eO'SEKUNDEN" 

Nun wird die Zeile 80 in 90 untergebracht und die Zeile 
40 auf die Zeilen 30 und 50 verteilt (Änderungen sind kursiv 
gedruckt): 

10 TI5="000000" 

20 F=5/4:V=20 

30 I-I-i-V:Z«l»F«f’:IF Z> INT(Z)THEN30 
50 Z=(Z+26)*F:IF Z>INT(Z)THEN30 
60 Z=(Z+10)»F:IF Z>INT(Z)THEN30 
70 Z=(Z+ 9)»F:IF Z>INT(Z)THZN30 
90 PRINT Z+8,I 
100 PRINT TI/60"SEKUNDEN" 

Um auf die Multiplikation in Zeile 30 nach jeder IF-Abfra- 
ge verzichten zu können, lassen wir sie nur einmal in Zeile 
20 ausführen. In Zeile 90 muß dann der Ausdruck I durch 
F*F geteilt werden: 

10 TI$="000000" 

20 F=5/4:V=20#F#F 
30 I=I+V:IF I>INT(I) THEN30 
50 Z=(I+26)»F:IF Z>INT(Z)THEN30 
60 Z={Z+10)*F:IF Z>INT(Z)THEN30 
70 Z=(Z4- 9)*F:IF Z>INT(2)THEN30 
90 PRINT Z+B,1/(F*F) 

100 PRINT TI/60"SEKUNDEN" 

Der Term 20*F*F(F = 5/4) wird erst geradzahlig, wenn 
er mit 4 multipliziert wird. Also: 80*F*F. Dies wird in Zeile 
20 übernommen. In den Zeilen 60 und 70 muß V wiederum 
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mit 4 beziehungsweise 16 multipliziert werden. Zusätzlich 
muß in Zeile 20 eine neue Variable für die Multiplikation von 
V vorgesehen werden. 

10 TI$= "000000" 

20 F=5/4;V=SD#F«F:r=K 
30 I=I+V:IF I>INT(I)THEN30 
50 Z*{I+26)*F:IF Z>INT(Z)THEN30 
60 Z=(Z+10)*F:IF Z>INT(Z)THEN7=r# A:GOTQ^O • 

70 Z=(Z+ 9)»F:IF Z>INT(Z)THEN7=r#l6,-007030 
90 PRINT Z+8,I/(F»F) 

100 PRINT TI/60"SEKUNDEN" 

Die Zeilen 30 und 50 werden zu einer einzigen Zeile 30 
zusammengefaßt: 

10 TI$="000000" 

20 F=5/4:V=80*F»F:T=V 
30 l=U'i-.Z=(I+26)*F:IF Z>INT(Z) THEN30 
60 Z=(Z+10)«F:IF Z>INT(Z)THEN V=T» 4;G0TO30 
70 Z=(2+ 9)*F:IF 2>INT(Z)THEN V=T»l6:GOT030 
90 PRINT Z+8,I/(F*F) 

100 PRINT TI/60"SEKUNDEN" 

Das wäre auch schon das komplette Listing (Listing 1). Es 
wurden lediglich die Zeilen neu durchnumeriert. Die Lauf¬ 
zeit beträgt, wie gesagt, 237,4 Millisekunden. 

Der zweite Sieger 


Etwas schneller ist da schon das Programm von Christian 
Geist aus dem Ort mit dem schönen Namen Linsengericht. 
211,1 ms nach dem Start erscheint bereits wieder das 
»READY.«aufdem Bildschirm. Das Ausgangsprogramm ist 
das folgende: 

10 TI$="000000" 

20 2*5 
30 X=Z 

40 FOR Y=12T08STEP-1 
50 X=5/4*X+Y 

60 IF X<>INT(X)THEN Z=Z+5:GOTO30 
70 NEXT 

80 PRINT"A)";X 
90 PRINT"B) "jY 
100 PRINT TI$ 

Der Computer geht also alle Möglichkeiten durch, wie 
viele Münzen am nächsten Morgen übrig sein könnten, und 
rechnet dann zurück, wie viele Münzen insgesamt gefun¬ 
den wurden. In Zeile 50 kann die Gleichung etwas umge¬ 
stellt werden: 

Z=X-Y-{X-Y)/5 < = >X*5/4*Z+Y. 

Hierbei bezeichnet X den bisherigen Rest, Y die Stunde 
und Z den neuen Rest. Da der C64 rückwärts rechnet und 
den neuen Rest Z nicht mehr benötigt, kann die Formel re¬ 
kursiv gestaltet werden, für Z setzen wir X ein. In Zeile 60 
werden alle Zahlen aussortiert, die nicht natürlich (sondern 
Kommazahlen) sind. Der Computer nimmt dann fünf Mün¬ 
zen mehr an als in der letzten Rechnung und fängt wieder 
von vorn an. Die erste Version des Programmes lief noch et¬ 
wa 17 Sekunden (siehe Tabelle 2). 

Um nach der ersten Rechnung eine natürliche Zahl zu er¬ 
halten, muß der Rest am Morgen durch vier teilbar sein. Es 
gibt jetzt zwei Bedingungen für X: die Teilbarkeit durch 5 
und durch 4. Zusammengefaßt muß X also durch 20 teilbar 
sein. Wir ändern das Programm wie folgt: 

20 Z=20 

60 IFX<>INT(X)THENZ=Z+20:GOT030 


DIE 3 GE 



e TI*»="000000’'8C*5!B»312S <091> 

1 B=B-4üA=B-8sA=A-A/C!lF fi<>INT(A)GOTO 1 <072> 

2 A=B-l«DX=5-<fl/C-INT(A/C))*C*.5sB=3I25*D-/{ <117> 

3 B=B-4ffl=B-8:A=A-A/CsIF ft<>INT(A)GOTO 3 <075> 

4 PRINT B-(DX*2101+20) iBjTI/4,0 <220> 


Listing 3. Das Siegerprogramm schrieb K. Kursawe 


Auch unser Gewinner Klaus Kursawe aus 2844 Lemförde ist noch 
Schüler. Er Ist 16 Jahre alt und besucht zur Zeit nochdie zehnte Klasse 
des Gymnasiums. Seinen Commodore 64 bekam er zusammen mit 
seiner Schwester vor vier Jahren. Er Ist begeisterter Hobbyprogram¬ 
mierer und arbeite,! daher auch heute noch an diesem Computer. An 
der notwendigen Übung scheint es Ihm In keinster Welse zu fehlen, 
sein glänzender erster Platz in unserer ersten Knobelecke dürfte Be¬ 
weis genug sein. Er darf sich auf drei Bücherausdem Markt &Technlk 
Verlag freuen. 

Das gesamte Team der 64’er-Sonderhette gratuliert den Gewinnern 
auf <liü;'>m Weg ganz herzlich und bedankt sich bei allen, die milge- 
madhi jiaben. 


Rang 

Gewinner 

Alter 

Laufzeit 

1 

Klaus Kursawe 

16 

207,7 ms 

2 

Christian Geist 

17 

211,1 ms 

3 

Erich Wolienberg 

36 

237,4 ms 


Tabelle 1. So wurde gewonnen 


Tabelle 2. 
Laufzeiten der 

Version 

Laufzeit 

verschiedenen 

1 

17 Sekunden 

Versionen des 

2 

6 Sekunden 

zweiten 

3 

2,23 Sekunden 

Platzes (nach 

4 

1,27 Sekunden 

Angaben 

5 

0,8 Sekunden 

des Autors) 

6 

0,63 Sekunden 


7 

0,65 Sekunden 


8 

0,53 Sekunden 


9 

0,52 Sekunden 


10 

0,22 Sekunden 


11 

0,17 Sekunden 


Aus 17 Sekunden Laufzeit werden so knapp 6Sekunden. 
X muß vor der zweiten Rechnung auch durch vier teilbar 
sein, damit man einen natüriichen (ganzzahligen) Wert er- 
häit. In der Gleichung Z=5/4*X-hY ist bei der ersten Rech¬ 
nung Y=12. Damit sind also Z und Y jeweils durch vier teil¬ 
bar, so daß dies auch für5/4*Xgeiten muß. Da man nur eine 
natürliche Zahl erhält, wenn X durch 4 teilbar ist, muß X 
durch 16 teilbar sein. Es muß also insgesamt durch 80 teil¬ 
bar sein, da die Division durch fünf auch ganzzahlig sein 
soll. Ändern wir das Programm: 

20 Z=50 

60 IFX<>INT(X)THENZ=Z+SO:GOT030 


100 
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WINNER 



1 Tt$= "000000":y=4a0:XBYiZBXiMBS/4iV>12:U= 


B 8 T=-l 8 B= 12 Sa <142> 

2 FOR Y*V TO U STEP TiX-X*W+Y:NEXT <249> 

3 IF X<>1NT(X>THEN Z=Z+S:X=ZsGOTO 2 <174> 

4 PRINT"ft>"iX,"B)"sZ,TI*,TI <172> 


Listing 2. Unser zweiter Sieger stammt von C. Geist 


Christian Geist aus 6464 Linsengericht 2 wurde am 29.2.1972 in 
Gelnhausen geboren und besucht zur Zelt die elfte Klasse am Gymna¬ 
sium. Vbr etwa neun Monaten kaufte ersieh den C64 als ersten Com¬ 
puter. Dieser war eigentlich nur als Ergänzung zum Informatik- 
Unterricht gedacht, doch schon nach kurzer Zeit verbrachte er immer 
mehr Zeit mit dem Rechner. Dabeiinteressiert ersieh weniger für die 
Spiele, die natürlich auch dazugehören, als vielmehr für Probleme 
und Aufgaben, wie etwa die Knobelecke. Das 64'er-Magazln lernte er 
bei seinem Onkel kennen. Bald merkte er, daß diese Zeitschrift die 
ideale Ergänzung zum Computer ist. Seit Januar 1989 liest er das 
Siammheft und die Sonderhefte regelmäBig. Da stIeB er auf dieKfäiA 
belecke und beschloß, mitzumachen. Es hat sich für ihn gelohnt: Sein 
Programm kam auf den zweiten Platz und bescherte ihm zwei Bücher. 



10 TIS<>:''000000" <24S> 
20 F»S/4!V-80*F*FiT«iV <07B> 
30 Z=<I-f26)*Fj IF Z>INT<2)THEN 30 <235> 
40 Z«(2+10)*F!lF Z>INT(Z)THEN V=T*4!GaT0 3 

0 < 111 > 
60 Z=<Z+9)*F«IF Z>INT(Z)THEN V-T*16lGOTO 3 

0 <239> 
90 PRINT 2+8,I/(F*F> <246> 
100 PRINT T/i0’'SEKUNDEN <193> 


Llating 1. E. Wollenberg erreicht den dritten Preis 


Erich Wollenberg aus2951 Pilsum ist 36 Jahre alt. Er verdient seine 
Brötchen als Beamter im mittleren fernmeldetechnlschen Dienst der 
Deutschen Bundespost. Im Herbst letzten Jahres hat er sich einen 
C 64 gekauft, der In der Hauptsache von seinem Sohn als Splolcom- 
puter genutzt wird. Da mathematische Probleme schon immer sein In¬ 
teresse geweckt haben, hat ersieh sofort daran gemacht, eine Lösung 
für die gestellte Aufgabe zu finden. Nachdem die Formel gefunden 
war, mußte das Versuchsprogramm geschrieben werden. Es wurde im 
wesentiiehen nicht geändert, jedoch mit einigen Vereinfachungen 
versehen und von unnötigen Rechenschritten befreit. Es belegt einen 
stolzen dritten Platz, Herr Wellenberg erhält dafür ein Markt ÄTechnik- 
Buch. 


Diese Verbesserung bringt einen Gewinn von 4 Sekun¬ 
den, die Laufzeit beträgt jetzt 2 Sekunden. Die erste Rech¬ 
nung lautet: 
z=5/4»x+12 

und die zweite Rechnung; 

W=5/4#Z-i-11 

VV muß wieder durch vier teilbar sein. Da 11 geteilt durch 
vier den Rest drei ergibt, muß 5/4*X um eins größer sein als 
eine durch vier teilbare Zahl. Allgemein also; 

5/4»Z=A«44-1 

Dabei ist A eine natürliche Zahl, Durch Umstellen, Ein¬ 
setzen und erneutes Umstellen erhält man; 
A=24/64»X-i-X/644-0,5 

Daraus ist ersichtlich, daß X durch 32 teilbar sein muß, da 
sonst A keine natürliche Zahl ist. Weiterhin muß X durch 
fünf teilbar sein, insgesamt muß also Teilbarkeit durch 160 
gegeben sein; 

20 Z=160 

60 IFX<>INT(X)THENZ=Z-i-l60:G0TO30 
DieseeinfacheVerbesserung bringt uns auf eine Zeit von 
etwas über einer Sekunde. Aus der letzten Gleichung er¬ 
sieht man außerdem, daß X nicht durch 64 teilbar sein darf. 
Da jedes Produkt von 160 und einem geraden Faktor auto¬ 
matisch durch 64 teilbar ist, können wir mit Z=Z4320diese 
Werte umgehen: 

60 IFX<>INT(X)THENZ=Z+^20:G0T030 
Zeile 20 wird diesmal nicht geändert. Bekanntlich wird 
ein Basieprogramm schneller, wenn man alle Konstanten 
am Anfang in Variablen definiert, da der Interpreter auf die¬ 
se schneller zugreift als auf Dezimalzahlen. Andern wir al¬ 
so Zeile 10; 

10 TI$='’000000'':X=160:Z=X:W=5/4:V=12:U=8:T=-1:S=320 
20 entfällt 
096.ISjslR5.it 
40 FOR Y=V TO U STEP T 
50 X=W*X-(-Y 

60 IF X<>INT(X)THEK Z=Z-^S:X=Z:G0TO40 

Nun fassen wir noch einige Zeilen zusammen: 

40 FOR Y=V TO U STEP T:X=W»X-i-Y:IF X< >INT{X) 

THEN Z=Z-fS:X=Z:G0TO40 
50 entfällt 
60 entfällt 

70 NEXT:PRINT"A)"’;X,''B)"jZ,TI$,TI 
80 entfällt 
90 entfällt 
100 entfällt 

Als nächstes definierten wir den Term Y-i- C vor und erset¬ 
zen GCfTO40 durch Y=C;NEXT 
10 TI$*"000000y=I:X=l60:Z=X:W=5/4:V*12:U=8:T= 
-l:S=320;C=I3 

20 FOR Y=V TO U STEP T;X=W»X+Y:IF X<>INT(X) 

THEN Z=Z-kS:X=Z:Y=C:NEXT 

Nun soll in Zeile lOdie Variable Y von einem sinnvolleren 
Wert (160) vorbelegt werden. Außerdem setzen wir X=Y. 
10 TI$="000000":Y=l60:X*Y:Z=Y:W=5/4:7=12:U=8:T= 
-1:3=320:0=13 

Diese neunte Version läuft in Sekunden. Jetzt ver¬ 
bessern wir die drei Rechnungen: 

1. Z=5/4»X-t-12 

2. W=5/4»Z-i-11 

3. V=5/4«W-i- 10 
W=A»4+2 (abgeleitet von 3-) 

Das ist im Prinzip wieder dieselbe Überlegung wie oben. 
Die Endgleichung iautet diesmal: 
A-7«15»X/32+5*X/256t5/8 

Da X durch 32 teilbar ist, ergibt 15*X/32 eine ganze Zahl. 
Außerdem läßt sich der Bruch 5*X/256 auf einen Bruch mit 
8 im Nenner kürzen. Damit haben die Brüche 5*X/256 und 
®/b nach Einsetzen von X den gleichen Nenner und lassen 
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sich problemlos addieren. Als Ergebnis muß eine durch 
acht teilbare Zahl herauskommen. Den entsprechenden X- 
Wert erhält man nach der Gleichung X=7+8*B, wobei Bei¬ 
ne natürliche Zahl ist. Diese Werte sind noch nicht durch 
acht teilbar, wir enveitern die Formel also mit acht: X=224+ 
256*B. Dieser Term erfüllt aber immer noch nicht alle For¬ 
derungen, denn X muß auch durch fünf teilbar sein. Dies ist 
nur der Fall, wenn die Einerstelle von Y eins oder sechs ist. 
Diese Regelmäßigkeit können wir nutzen; da B mindestens 
1 ist. kann man zu der 224 einmal 256 addieren. Jetzt wird 
zu diesem Wert jeweils 5*256 addiert, somit erhält man ei¬ 
ne Anzahl Münzen, die alle Bedingungen erfüllt. Mit dieser 
Anzahl kann, der Computer wieder zurückrechnen. Außer¬ 
dem nurneriereti wir die Zeilen neu durch (bringt keinen Ge* 
schwindlgkeltsvoiteit): 

1 TI$«''Öa0t/9'*’;l’*48O:X=Y:Z=Y:W=5/^:V=12:ü=8:T= 

Diese Version benötigt Sekunden zur Berechnung. 
Etwas schneller wird unser Programm noch, wenn die IF- 
Abfrage hinter die Schleife verlagert wird; 

(C=13 am Ende von Zelle 1 entfällt) 

2 FOR Y=V TO U STEP T:X=W»X+Y:NEXT 

3 IF X<>INT{X)THEN Z=Z+S:X=Z:G0T02 

4 PRINT"A)'';X, "B)';Y,TI$,TI 

Werden in Zeile 2 die beiden Faktoren vertauscht, stei¬ 
gert sich die Zeit von ''Veo auf ’®/6o Sekunden: 

2 FOH Y=V TO U STEP T:X=Xi(V+Y :NEXT 

Damit wären wir auch schon beim fertigen Programm (Li- 
sting 2). Man könnte es sogar noch etwas schneller ma¬ 
chen, wenn bei der IF-Abfrage statt ungleich auf größer ge¬ 
testet wird (wie in Listing 1, dritter Platz), da der INT-Wert 
einer Zahl niemals kleiner ist als die Zahl selbst. Auch die 
Strichpunkte in Zeile 4 könnten zugunsten der Laufzeit ent¬ 
fallen. 

Der stolze Gewinner 


Da der Programmautor diese Idee jedoch leider nicht selbst 
hatte, reichte es nicht ganz zum ersten Platz, Den belegt 
das 0,0034 Sekunden schnellere Programm von Klaus Kur- 
sawe aus Lemförde. Tusch: sein Programm (Listing 3) läuft 
schlappe 207,7 Millisekunden. Auch er kam nach mehreren 
Vorabversionen zu seinem Siegerprogramm. Die erste Ver¬ 
sion lautete 

5 TI$='000000':F=1:Z=5:G=Z-1 
10 B=F*Z»Z*Z*Z«Z 
15 A=B 

20 A=A- 8:A=A-(A/Z):IF A<>INT(A)GOT080 
30 A=A- 9:A=A-(A/Z):IF A<>INT(A)GOT080 
40 A*A-10:A=A-U/Z):IF A<>INT(A)GOT080 
50 A=A-11:A=A-(A/Z):IF A<>INT(A)GOT080 
60 A=A-12:A=A-(A/Z):IF A<>INT(A)GOT080 
70 IF A/Z«INT(A/Z)THEN PRINT B,A,TI,TI$:END 
75 F=F+1:GOT010 
80 B*B-G:GOT015 

Die Grundidee ist die folgende; Wenn man nicht berück¬ 
sichtigt, daß der Rest (die Münzen, die bei der Endauftei¬ 
lung noch da sind) durch fünf teilbar ist, so ist die erste Lö¬ 
sung etwas kleiner als 5®- 5® wäre die Lösung ohne wegge¬ 
worfene Münzen). Das Prinzip des Programmes ist, daß 
von 5® (3125) heruntergezählt wird, bis eine Lösung gefun¬ 
den wird. Ist diese nicht durch fünf teilbar, so wird von 2mal 
5® heruntergezählt und so weiter. Die Lösung ist also Xmal 
5®, Die Reihenfolge der Ausgabe ist: Rest, Gesamtsum¬ 
me, Zeit in Veo Sekunden, Zeit HHMMSS. 


Das erste Programm geht wie oben beschrieben vor. Ein 
Trick wird beim Herunterzählen verwendet: Man muß nicht 
immer um eins abwärts zählen. Bei n Personen ist die 
Schrittweite n-1, hier also vier. Dies funktioniert, da 5® um 
eine bestimmte Uhrzeit (fünf Uhr) eine Lösung ist, und die 
Lösung für jede Stunde, die der erste früher anfängt, um 
vier größer wird. Beispiel: 

Die Startzeit ist 7 Uhr = Lösung von Startzeit + 4. 

Nun die zweite Version des Programmes: 

1 TI$="000000":A=0:C=5:B=A 

2 D=D+1:B=3125*D 

3 B=B-4:A=B-8 

4 A=A-A/C:IFA<>INT(A)GOT03 

5 A=A-9:A=A-A/C-10:A=A-A/C-11t A=A-A/C-12:A= 
A-A/C:IF A/C<>INT(A/C)GOT02 

6 PRINT A;B;TI;TI$:END 

Im ersten Programm siebt Zeile 20 schon alle falschen 
Lösungen aus. Deshalb konnten Zeilen 30 bis 60 weggelas¬ 
sen werden. Ferner wurden einige Berechnungen wegge¬ 
lassen. Nun zur dritten Version; 


Hier verwenden wir einen neuen Trick: Aus der Lösung 
von X=1 wird sofort der richtige X-Wert (D%) ermittelt, wo¬ 
durch weniger ausprobiert werden mußl Dieser Kniff hebt 
dieses Programm wohl an die Siegerposition. Doch nun die 
vierte und letzte Version: 

0 TI$= "000000'':C=5:B=3125 

1 B=B-4:A=B-8:A=A-A/C:IF A<>INT(A)G0T01 

2 A=B-1:D!8=5-(A/C-INT(A/C))»C+.5:B=3125»D!? 

3 B=B-4:A=B-8:A=A-A/C:IF A<> INT(A)G0T03 

4 PRINT B-(D**2101+20);B;TI 

Zeile 5 aus dem dritten Programm wird hier durch A=B-1 
ersetzt. B-1 steht für X (eins) mal 2102-P20. Da es nur auf 
den Ser Rest ankommt, kann man auch ’l’ schreiben. X mal 
210220 ist eine Konstante, die zusammen mit dem Rest 
für jede Startzeit die Gesamtsumme ergibt. Hier wurde aus 
diesem Wert der Rest ermittelt. 

Eine kleine Anmerkung sei noch gestattet: Statt von 5® 
herunterzuzählen, kann man auch die Formel B=X*5®-12 
(= Personen)'^'*®"*" mal X -i- (Personen-1)*(Personen- 
Startzeit)) verwenden. Sie kann zum Beispiel in die Zeilen 
1 und 3 von Listing 3 eingesetzt werden, der jeweilige Rest 
wird dann weggelassen. Dadurch werden die Programme 
noch etwas kürzer und schneller. 

Das waren also die drei Siegerprogramme. Eine Spitzen¬ 
leistung, finden Sie nicht? Vor allem, wenn man bedenkt, 
daß unser Probeprogramm immerhin 13Sekunden brauch¬ 
te. Sollte es diesmal nicht mit dem Gewinnen geklappt ha¬ 
ben, trösten Sie sich: Die nächste Knobelecke kommt be¬ 
stimmt. Und wer weiß, vielleicht sind Sie dann unter den 
stolzen Gewinnern? Wenn Sie übrigens Ideen für eine neue 
Knobelecke haben, sowürden wir uns auch über deren Ein¬ 
sendung sehr freuen. (Nikolaus Heusler/ag) 


1 TI$="000000":A=0:C=5:B=A 

2 8-3125 

3 B=B-4:A=B-8 

4 A=A-A/C:IF A<>INT(A)G0T03 

5 A=A-9:A=A-A/C-10:A=A-A/C-11:A=A-A/C-12:A= 
A-A/C: D$-5-(A/C-INT(A/C))kC+.5 

6 B=3125»D5I 

7 B=B-4:A=B-8 

8 A=A-A/C:IF A<>INT(A)G0TO7 

9 A=A-9:A=A-A/C-10:A=A-A/C-11:A=A- 
A/C-12:A=A-A/C: 

^iRINT A,B,TI 

100 REH A=B-8:aoht weggeworfene Münzen 
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Eine neue Herausforderung für alle 
Basic-Knobler: Mit der richtigen Lösung 
und einer schneiten Zelt warten wieder at¬ 
traktive Preise auf die Sieger dieser Aufgabe. 

Z wei Spitzenspiele, die für Abwechslung nach anstren¬ 
gender Programmiertätigkeit sorgen, und einen 
Basic-Compiler der Spitzenklasse (Bild 1) haben wir 
für die drei Gewinner der neuen Aufgabe ausgesuSl^.'Öef- 
Sieger erhält das komplette Paket, der Gewinner des zwei¬ 
ten Preises zwei Disketten nach freier Auswahl. Der dritte 
Sieger kann sich ein Programm aussuchen. 

Die Lösung sollte nicht viele Schwierigkeiten bereiten. 
Der eigentliche Reiz der Aufgabe liegt wieder darin, einen 
optimalen Programmalgorithmus zu entwickeln, mit dem 
nach kürzester Zeit die richtige Lösung auf dem Bildschirm 
erscheint. 


Chen. Minna kennt einen Getränkemarkt 
ganz in der Nähe, und sie hat genau 100 Mark 
bei sich. 

Ziemlich erleichtert beauftragt Graf Betholdy sie 
ofort, für diesen Betrag exakt 100 Flaschen an Geträn¬ 
ken zu besorgen. Eine Flasche Wein kostet 3 Mark, eine 
Rasche Sekt 10 Mark, eine Flasche Bier 0,50 Mark. 
Helfen Sie Minna, diesen Auftrag zu erledigen. 

Flaschen von jeder Sorte muß sie einkaufen? 


Die Regeln 


Die Aufgabe 


Schreiben Sie ein kurzes Basic-Programm, das folgende 
Bedingungen erfüllen muß: 

- Die Zeit muß am Ende ausgegeben werden (mit Tl$ oder 
TI). Das Listing muß mit »Tl$ = ”000000”«- beginnen. 

- Assembler-Routinen dürfen nicht verwendet werden. 

- Die richtige Lösung muß vor Ausgabe der Zeit auf dem 
Bildschirm sichtbar sein. 

Schicken Sie das Programm bis zum 31.7.1989 an folgen¬ 
de Adresse: 


ln der Villa »Hammerthal« wird das traditionelle Gartenfest 
vorbereitet. Alle Angestellten sind emsig damit beschäftigt, 
den Garten zu schmücken. 

Bei einem Rundgang am Tag des Fests stellt der Gastge¬ 
ber, Graf Berthotdy, mit Entsetzen fest, daß der vorhandene 
Getränkevorrat kaum reichen wird, seine Gäste ausrei¬ 
chend zu bewirten. Es fehlen vor allem Wein-, Bier- und 
Sektflaschen. Viel Zeit bleibt jedoch nicht mehr, das Fest 
beginnt bereits in 
wenigen Stunden. 

Zu allem Un¬ 
glück befindet sich 
im ganzen Haus 
kein Geld. Die Villa 
liegt weitab von je¬ 
der Ortschaft, und 
es ist Wochenen¬ 
de. Woher also die 
Getränke besor¬ 
gen? 

Die »Rettung« 
naht mit Minna, 
dem Kindermäd- 


Markt&Technik Verlag AG 
Redaktion 64’er-Sonderheft 
Stichwort: Knobelecke 2 
Hans-Plnsel-Straße 2 
8013 Haar bei München 

Bitte schicken Sie das Programm nur auf Diskette ein. 
Das erleichtert uns die schnelle Auswertung. 

Haben Sie noch 
Ideen für weitere 
Knobeleien? 

Schicken Sie 
uns diese bitte an 
die gleiche Adres¬ 
se. Die Idee zu 
dieser Knobele! 
stammt von Hans- 
Jürgen Kersten. 

Viel Spaß beim 
Knobeln wünscht 
die Sonderhefte- 
Redaktion. (ef) 



Bild 1. Zwei Spiele und ein Basic-Compller warten auf die drei Gewinner 
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RasteriifleiTU|it 


Zweifarbiger Blldschirm(rahmen), Text und Grafik 
oder zwei verschiedene i&ichensätze gleichzei¬ 
tig auf dem Bildschirm, Sprites im Bildschirmiah- 
men - alles kein Problem mit Raster-IRQs. In un¬ 
serem kleinen Kurs lesen Sie, was das ist und wie 
sie programmiert werden. 


K ein modernes Spiel kommt ohne sie aus. Viele Grafik- 
Programme verwenden sie. Auch in dem einen oder 
anderen Utility oder Anwendungsprogramm trifft man 
auf sie. Die Rede ist von einem »Geheimtip«, wenn es um 
Grafik geht: den Raster-Interrupts. Sollten Sie noch nicht zu 
den »Eingeweihten« gehören, die wissen, was man damit 
alles anstellen kann, so sind Sie hier genau richtig. Dieser 
Artikel soll Sie In die Geheimnisse der Ra-IRQs (das Ist die 
allgemein gebräuchliche Abkürzung) einweihen. Es ist 
zwar gar nicht so schwer, diesen Effekt zu programmieren. 
Als Unterstützung wird uns aber trotzdem das Programm 
»Raster-Utility« von Thomas Schlottke begleiten - zur Er¬ 
leichterung. Sollten Sie nach der Lektüre dieses kleinen 
Kurses Vorhaben, seibst Ra-IRQs zu programmieren, so 
benötigen Sie dazu allerdings Maschinensprache-Kennt¬ 
nisse. Denn Basic ist nicht nur zu unflexibel dazu, sondern 
vor allem viel zu langsam. 

Beginnen Sie am besten mit der Eingabe des Prograrn-, 
mes »Raster-Utility« (Listing 1). Verwenden Sie da2ü den 
MSE, Hinweise finden Sie auf Seite 159. Das kleine Demo¬ 
programm (Listing 2) Ist in Basic geschrieben und zeigt, so¬ 
zusagen als Appetitanreger, einige der Möglichkeiten, die 
Listing 1 eröffnet. 

Wenn Sie sich speziell dafür interessieren, was Raster- 
Interrupts sind, wie sie Zustandekommen und wie sie In As¬ 
sembler (ohne das »Raster-Utility«) programmiert werden, 
lesen Sie den Testkasten 1. 

Laden Sie das Programm »Raster-Utility« jetzt mit dem 
Befehl 

LOAD "RASTER-UTILITY",8,1 <RETURN> 

Danach müssen Sieden Befehl NEWeingeben, damit al¬ 
le Zeiger richtig gestellt werden. Laden Sie jetzt das Demo¬ 
programm (Listing 2) wie ein normales Basic-Programm 
und starten Sie es mit 
RUN < RETURN > 

Der erste Teil des Beispielprogramms demonstriert, wie 
mit Hilfe des Raster-Interrupts gleichzeitig Text und Grafik 
verwendet werden kann: In der Mitte des Schirms wird ein 
Grafik-Fenster eingeblendet. Das anschließende Löschen 
der Grafik dauert in Basic einige Sekunden, gedulden Sie 
sich also. Danach werden einige Wellenlinien In das Fen¬ 
ster gezeichnet. 


Kurzinfo: Rasterinterrupt 


Programmart: Tool zur Rasterinterrupt-Programmierung 
Laden: LOAD "Raster-Utllity',8,1 
Start: Nach dem Laden NEW und SYS 49152 eingeben 
Besonderheiten: Das Demo-Programm lädt den Maschinenspra¬ 
cheteil nach und startet Ihn mit SYS 49152. Das Programm belegt 
keinen Basic-Spelcherplatz. Den dokumentierten Quelltext bitte 
nicht eingeben. 

Programmautor; Thomas Schlottke 


Wenn Sie jetzt eine Taste drücken, gelangen Sie in Teil 2 
des Oemoprogramms. Hier zeigt der C64, daß er durchaus 
mehrere Farben gleichzeitig als Bildschirmhintergrund und 
■rahmen darstellen kann. Nach einem weiteren Tasten¬ 
druck wird, passend zum 40. Geburtstag der BRD, die deut¬ 
sche Fahne eingeblendet. Auch sie wird durch geschicktes 
Umschalten der Farben mittels Ra-IRQ erzeugt. 

Das letzte Beispiel, das dann in einer Endlosschleife 
läuft, zeigt, daß verschiedene Zeichensätze zur selben Zeit 
verwendet werden können. Die Grenze kann sogar mitten 
durch eine Zeile gelegt werden oder, wie es das Demo be¬ 
weist, wandern. 

Nach dieser Spielerei wollen wir jetzt untersuchen, wie 
Sie mit dem »Raster-Utility« eigene Raster-IRQs program¬ 
mieren. 

Nach dem Laden des Maschinenprogramms können Sie 
mit der Programmierung beginnen. Zunächst sollten Sie 
sich überlegen, ob das Raster-Utility als Basic-Erweiterung 
oder als unabhängiges Maschinenprogramm benutzt wer¬ 
den soll. Beides ist möglich. Gegen eine Einbindung als 
Basic-Befehlserweiterung spricht eigentlich nur, daß dazu 
die Basic-Vektoren verbogen werden müssen. Andere Be¬ 
fehlserweiterungen sind damit ausgeschaltet. Ist das nicht 

Vier neue Befehle 


efwürisciit, benutzen Sie das Programm als eigenständi¬ 
ges Assemblerprogramm, das etwas umständlicher über 
SYS-Befehle gesteuert wird. Im Einzelfall sollte das jeder 
selbst entscheiden, im Zweifelsfaü hilft Probieren. Doch um 
das »Raster-Utility« auszuprobieren, können Sie es getrost 
als Erweiterung benutzen. Starten Sie es deshalb mit dem 
Befehl 
SYS 49152 

Das Utility ist jetzt mit seinen neuen Befehlen initialisiert. 
Diese bestehen aus zwei Zeichen; Das erste davon ist im¬ 
mer ein Punkt, auf den ein Buchstabe folgt. Vier neue Be¬ 
fehle gibt es (weitere Angaben, die eventuell entfallen kön¬ 
nen, stehen in geschweiften Klammern, die Kiammer und 
die Ziffer gehören nicht zum Befehl); 

1) .S Rasterzelle, Registerl, Inhaiti 

[, ReglsterZ, Inhalt2[, 

Der Set-Befehl ist wohl der wichtigste, da er festlegt, bei 
welchen Rasterzeilen welche Register wie verändert wer¬ 
den sollen. Hinter dem »Befehlswort« ».S« geben Sie zu¬ 
nächst die Rasterzeile an, die hier definiert werden soll. Der 
erlaubte Bereich liegt zwischen 1 und 255 einschließlich. 
Dahinter geben Sie, durch Komma getrennt, die Speicher¬ 
zelle an, die in dieser Zeile geändert werden soll. Üblicher¬ 
weise werden es VIC-Register, also Speicherzellen von 
53248 bis 53295, sein. Hinter dieser Angabe folgt, wieder 
durch ein Komma getrennt, der gewünschte neue Inhalt für 
diese Speicherzelle. Sollen in dieser Zeile weitere Register 
beeinflußt werden, geben Sie die entsprechenden Daten, 
durch weitere Kommata getrennt, einfach dahinter an. Die 
Anzahl Ist nur durch die Länge einer Basic-Zeile und den 
Speicher begrenzt. Beispiel; 

.B 150,53280,0 

Ab Rasterzeile 150 (liegt etwa in der Mitte des Bild¬ 
schirms) soll Speicherzelle 53280 auf Null gestellt werden, 
der Bildschirmrahmen soll also schwarz werden. Dieser 


104 


SONDERHEFT 43 











TIPS&TRICKS 


nkht nur für Profis 


A 


TIMES Normal 



Helvetica 

Bold 



10 SYS 49152 
20 .0 

30 .S 1,53281,0,53200,0 

40 .S 150,53281,7,53280,7 
50 .1 



Mit Raster-Interrupts lassen sich bequem Text und Grafik 
oder zwei verschiedene Zeichensätze gleichzeitig auf 
dem Bildschirm darstellen 

Befehl alleine bewirkt lediglich, daß der gesamte Rahmen 
schwarz wird, Denn nachdem er in Rasterzeile 150 verfärbt 
wurde, gibt es keinen weiteren Befehl mehr, der die alte Far¬ 
be wiederherstelH. Hier müßten Sie, wie es weiter unten 
noch gezeigt wird, mit einem weiteren .S-Befehl arbeiten. 

2) .D Rasterzeile 

Durch den DELete-Befehl wird ein mit dem SET-Befehl 
programmierter Raster-Interrupt gelöscht. Hinter diesem 
Befehl geben Sie nur die Nummer der Rasterzeile an. in der 
nichts mehr geschehen soll. 

Achtungl 

Durch diesen Befehl werden auch alle Definitionen ge¬ 
löscht. die nach dem betreffenden SET-Befehl eingegeben 
wurden. Der etwas fehlerhafte DEL-Befehl sollte daher also 
besser nicht so oft verwendet werden. Beispiel: 

.d 150 

In Zeile 150 (siehe Beispiel oben) geschieht nichts mehr. 


fehl sinnvoll, da er bei SYS 49152 automatisch ausgeführt 
wird. Auch hier sind keine Parameter erforderlich. 

Das Arbeiten mit dem Raster-Utility erklären wir am be¬ 
sten an einem Beispiel: Sie möchten den Bildschirmrand 
und den Textbildschirm zweifarbig darstellen. Also lösen 
Sie je einen Interrupt in der ersten Rasterzeile (ganz oben 
im Bildschirmrahmen) aus und einen weiteren in der Mitte 
des Bildschirms, etwa bei Rasterzeile 150. Sobald der Elek¬ 
tronenstrahl in der ersten Zeile ist, soll der Bildschirm 
schwarz gefärbt werden. Ab der 150, Rasterzeile ist wieder 
gelb erwünscht. Ein entsprechendes Programm sähe fol¬ 
gendermaßen aus: 

: REH neue Baslo-Befehle ein 
: REH zur Sicherheit 
REH Rahmen und Hintergrund 
in Zelle 1 schwarz 
REM ab Zeile 150 wieder gelb 
REM Effekt elnsehalten 

Vor dem Start mit RUN muß natürlich Listing 1 im Spei¬ 
cher stehen. Wenn das kleine Programm eingegeben und 
gestartet wurde, sehen Sie den zweifarbigen Schirm. Ge¬ 
ben Sie jetzt mal im Direktmodus (ohne Basic-Zeilennum- 
mer) ein: 

.s 100,53280,2 

Der Rahmen soll also zwischen Zeile 100 und 150 rot ge¬ 
färbt werden. Die deutsche Fahne ist zu sehen. Nachdem 
dy Rand sich geändert hat, probieren Sie einmal, die 
’letzie Veränderung in Zeile 150 wieder zu löschen: 

.d 100 

Hätten Sie nach dem letzten SET-Befehl weitere 
SET-Befehle eingegeben, wären diese ebenfalls 
gelöscht worden (Fehler im DEL-Befeht). Zum 
Schluß kann man durch abwechselnde Eingabe von 
.C und .1 diese beiden Befehle noch ausprobieren. 

Zur Auswahl stehen alle Rasterzeilen von 1 bis 255. Der¬ 
jenige, der sich schon etwas damit auskennt, wird sich fra¬ 
gen, warum nur 255 Rasterzeilen (anstatt 280) genutzt wur¬ 
den. Die Antwort liegt auf der Hand. Löst man etwa in Zeile 
0 einen Interrupt aus (mit »Raster-Utility« nicht möglich), so 
liegt dieser noch außerhalb des oberen Bildschirmrandes, 
während die Rasterzeile 256 zwar noch im sichtbaren Be¬ 
reich liegt, jedoch weit unter dem Textbildschirm im Rah¬ 
men. Dieses ist zwar fernseh- beziehungsweise monitor¬ 
spezifisch verschieden, jedoch erschien diese Einschrän- 


Einschränkungen 


3) .C 

Durch den Clear-Befehl werden alle Raster-Interrupts 
abgeschaltet, aber nicht aus dem Speicher gelöscht. Der 
Bildschirm ist also wieder im Normalzustand. Dieser Befehl 
benötigt keine Parameter. Wiedereinschalten geschieht 
durch den Befehl 

4) .l 

Der Gegenbefehl zu ».C«, der Init-Befehl, läßt alle Raster- 
Interrupts zu, ist somit natürlich nur nach einem Clear-Be- 


kung aus Gründen der einfacheren Programmierung sinn¬ 
voll, da zwei Nullbytes im Datenfeld als Endkennzeichnung 
für eine Rasterzeile dienen und eine Rasterzeile über 255 
nur in 16-Bit-Darstellung zu verarbeiten wäre. 

Die Anzahl der Rasterzeilen-Interrupts, die Sie gleichzei¬ 
tig anwenden können, ist ebenfalls begrenzt. Sie hängt vor 
allem vom Abstand dieser zueinander ab, je ein Raster-In¬ 
terrupt in Zeile 150 und ein weiterer in Zeile 153 ist leider 
nicht möglich, da hier das Maschinenprogramm nicht mehr 
mitkommt. Der Grund für diese Beschränkung liegt in der 
hohen Geschwindigkeit des Elektronenstrahls, der den 
Bildschirm aufbaut (siehe Textkasten 1). 

Beim SET-Befehl darf als Speicherzelle, die verändert 
werden soll, nicht die Null gewählt werden, was jedoch 
auch kaum sinnvoll wäre. Eine Prüfung erfolgt allerdings 
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nicht! Auch die Null als Nummer der Rasterzeile sollten Sie 
nichtverwenden. Achten Sie auch darauf, daß niemals zwei 
verschiedene SET-Befehle für dieselbe Rasterzeile ver¬ 
wendet werden. Der zweite Befehl würde nicht berücksich¬ 
tigt; 

Falsch: 

•s 123,53280,0 
.3 123,53281,6 

Richtig: 

.3 123,53280,0,53281,6 

Die Tabelle, in der die SET-Befehle gespeichert werden, 
umfaßt nur 255 Byte. Läuft sie über, weil zu viele Definitio¬ 
nen erfolgten, arbeitet das Programm nicht mehr richtig. 
Daher sollte die Anzahl der SET-Befehle nicht übermäßig 
groß werden. Jeder SET-Befehl belegt in dieser Tabelle 3 
Byte, dazu kommen noch je 3 Byte für jedes Register, das 
verändert werden soll. Die maximale Anzahl von SET-Be- 
fehlen mit je einem Register beträgt demnach etwa 42. Das 
Programm testet nicht, ob der neue »Job« noch in derTabel- 
le Platz hat. Übrigens beginnen die Interrupts mit steigen¬ 
der Zahl von SET-Befehlen sehr stark zu flimmern. Beach¬ 
ten Sie in diesem Zusammenhang bitte auch, daß mit dem 
DEL-Befehl gelöschte Rasterdaten immer noch Speicher¬ 
platz in der Tabelle belegen. Da dieser Befehl, wie oben 
mehrfach erklärt, auch nicht immer ganz fehlerfrei arbeitet, 


sollten Sie ihn in der Praxis vermeiden. Da der SET-Befehl 
nicht selbständig den Interrupt abschaltet, sollten Sie dies 
erledigen; 

Vor jedem SET-Befehl sollte ein .C-Befehl stehen, da¬ 
nach ein .I-Befehl, um den Interrupt wieder einzuschalten 
(siehe Demoprogramm, Listing 2, Zeilen 200 bis 240). An¬ 
sonsten kann das Programm, insbesondere, wenn sehr vie¬ 
le Ra-IRQs programmiert sind, abslürzen. 

Oben wurde bereits erwähnt, daß man anstelle der neu¬ 
en Basic-Befehle auch eine Steuerung über SYS-Befehle 
vornehmen kann. Diese Möglichkeit werden wir Ihnen 
gleich noch genauer vorstellen. Hier sei nur der Hinweis an¬ 
gebracht, daß Sie zwar auch nach Benutzung der Steue¬ 
rung über SYS-Befehle mit SYS 49152 die Befehlserweite¬ 
rung einschalten dürfen, jedoch nicht umgekehrt. Sind erst 
einmal die neuen Befehle eingebaut, ist die Steuerung mit 
SYS »tabu«. 

Diese Einschränkungen sind durch die Programmierung 
des Raster-Utility gegeben, wiegen in der Praxis jedoch 
nicht allzu schwer. Außerdem ist dieses Programm ja nur 
als Anregung zu verstehen, mit Hilfe von Listing 3 können 
Sie nach Belieben zusätzliche Prüfungen und Verbesse¬ 
rungen einbauen. Drei weitere Einschränkungen sind 
C64-spezifisch: Steht einer der neuen Befehle hinter dem 
THEN-Befehl, ist dazwischen ein Doppelpunkt notwendig: 


Was sind Rasterinterrupts? 


Um diesen Begriff zu erklären, muß man zunächst auf die beiden 
Wörter eingehen, die darin enthalten sind: »Raster- und »Interrupt*. 

in jedem Fernseher und Monitor Ist eine Art Kanone enthalten, die 
von hinten auf die Mattscheibe Elektronen schießt, welche dort die 
Mattscheibe zum Leuchten bringen. Eine Elektronik steuert diesen 
Strahl, den sogenannten »Rasterstrahl- nun so, daß er das Bild, das 


IMR-Register (Nummer 26. Adresse 53274) des VIC (sieheScOSa In Ll- 
stlng 3). Nun müssen wir ihm noch mittellen, bei welcher Zelle der IRQ 
erfolgen soll. Dies gesohleht durch Schreiben der Nummer in Regi¬ 
ster Nummer 18(53266). DadlesesRegister nur Zahlen von Obis 255 
aufnehmen kann, es aber bis zu 280 Zeilen geben kann, wird noch ein 
achtes Bit benötigt, das wir in Adresse 53265 (Register Nr, 17) finden: 


zu sehen sein soll, aufbaut. Der Strahl »tastet« die Scheibe ffiUaBWBi-CffcllPUWei’as Bit 7 milder Wertigkeit 128. Um etwabei Zeile 123 einen 


se ab, dabei werden genau die Punkte gesetzt, die der Fernsehsender 
oder ln unserem Fall der Rechner vorschreibt. Damit der Computer 
den Strahl also in der Helligkeit verändern und so das Bild erzeugen 
kann, muß er wissen, welche Zeile des Monitorbildes vom Strahl gera¬ 
de aufgebaut wird. In Europa besteht die sogenannte °PAL--Norm 
(Phase Alternation Line), die unter anderem vorschrelbt, daß ein Fern¬ 
sehbild etwa 650 solcher Zellen besitzt. SOmal In der Sekunde über¬ 
streicht der Rasterstrahl das Bild (50 Hz Bildwiederholfrequenz), die 
Nummer der Zeile, die gerade aufgebaut wird, wechselt also etwa 
32500mal In der Sekunde. BeimC64 sind es nicht ganz so viele Zel¬ 
len, hier besteht ein Bild aus exakt 280 Rasterzeilen. Wenn Sie sich 
das Bild Ihres Computers genau ansehen, werden Sie feststellen, daß 
alle Buchstaben aus waagerechten Strichen bestehen (gut zu erken¬ 
nen beim Cursor). Dies sind die Rasterzellen (siehe hierzu auch Text- 
kasten 3). Da der Videocontroller (VIC) Im C64 die Steuerung des 
Strahls übernimmt, muß ihm zu jeder Zelt bekannt sein, welche Zelle 
gerade angepellt wird. Diese Angabe findet eich Im Register 18 (S12) 
desVIC, es hat die Adresse 53266. Dasichder Inhalt 14000mal in der 
Sekunde ändert, kann man dieses Register übrigens gut als Zufalls¬ 
generator verwenden. Das aber nur nebenbei. 

Nun zum Interrupt: Ein beliebtes Beispiel zur Erklärung Ist das fol¬ 
gende: Stellen Sie sich vor, während Sie gerade diesen Text lesen, 
klingelt das Telefon. Sie legen das Heft beiseite, um zu telefonieren. 
Danach nehmen Sie die Lektüre wieder auf, um welterzulesen. Ge¬ 
nau das passiert auch Im C64: Er bearbeitet das Hauptprogramm, 
dies Ist seine »Lektüre«. Jetzt wird ein Interrupt eusgelöst, der Compu¬ 
ter unterbricht die Bearbeitung, erledigt einige Aufgaben wie das Cur- 
sorbllnken, die Abfrage der Tastatur und das Welterzählen der Uhren 
TI und TIS, danach wird das Hauptprogramm weiter bearbeitet - bis 
zum nächsten Interrupt. Diese Art von Interrupt nennt man IRQ (Inter¬ 
rupt ReQuest), er wird von einer Uhr (einem »Timer«) 60mal Inder Se¬ 
kunde ausgelöst. 

Koppelt man nun die Begriffe »Raster- und »interrupt«, kommt man 
auf den »Rasterinterrupt«. Denn auch der VIC ist In der Lage, einen In¬ 
terrupt auszulösen, beispielsweise, wenn der Lichtgriffel einen Punkt 
reglstriert-oder wenn der Rasterstrahl im Monitor eine bestimmte Zel¬ 
le erreicht hat! Um sicherzustellen, daß der VIC einen IRQ auslöst, 
setzt man das niedrigste und das höchste Bit (dezimal also 129) Im 


IRQ auslösen zu lassen, löschen wir Bit 7 In 53265 (123 < 256) und 
schreiben 123 In Adresse 53266. Das Ist auch schon alles. 

Doch wie reagieren wir nun, wenn wir einen IRQ feststellen? Wurde 
dieser, wie üblich, durch den Timer ausgelöst (sogenannter »System- 
IRQ«), oder war es ein Rasterinterrupt? Dazu programmieren wir eine 
neue IRQ-Routlne, Indem wir den Zeiger $314/5 verbiegen (siehe ein¬ 
schlägige Literatur). Jetzt testen wir das IRR (siehe Tabelle, Adresse 
53273); Sind wieder die BitsO und 7 gesetzt, war es der VIC(und damit 
der Rasterstrahl), der den IRQ auslöste, sonst der Timer. Im letzteren 
Falle können wir getrost an die Orlginal-IRQ-Routine bei Sea31 ver¬ 
zweigen: Der Rasterstrahl Ist noch nicht so weit. 

Bel einem Raster-IRQ können nun zum Beispiel die VIC-Register 
verändert werden. Das altbekannte Beispiel Ist der zweifarbige Blld- 
aohirmrahmen; Oben soll der Schirm von einem blauen Rahmen um¬ 
geben sein, unten soll es ein roter sein. Lassen wir also in der Mitte 
des Bildschirms (z.B. Zelle ISO) einen Rasierinterrupt auslösen. Wird 
er registriert, soll der Bildschirmrahmen (Farbreglster 53280) auf rot 
(Wert 2) gesetzt werden. Das reicht aber noch nicht: Tun wir nur dies, 
gelangt der Strahl Irgendwann einmal zu Zelle 150, löst den IRQ aus, 
der Rahmen wird rot gesetzt - fertig. Er bleibt rot. Wir müssen dafür 
sorgen, daß außerhalb des sichtbaren Bereichs, etwa ln Rasterzelle 
eins, wieder auf blau umgeschaltet wird - wieder mit einem Rasterin¬ 
terrupt (siehe Bild). 

Da, wie gesagt, SOmal In der Sekunde 300 Zellen aufgebaut wer¬ 
den, und somit der Rasterstrahl 14000mal pro Sekunde die Zella 
wechselt, ist Basic eindeutig zu langsam für Rasterinterrupts. Auch 
fehlen hier die Möglichkeiten der Interrupt-Programmierung. In Ma¬ 
schinensprache können aber mit relativ einfachen Programmen Ra¬ 
sterinterrupts programmiert werden. 

Hier gibt es auch noch ein Betätigungsfeld für »Vollblutprogrammle¬ 
rer« und Profis: Wer schafft es, eine Hardcopy-Routine zu schreiben, 
die Raster-IRQs aller Art berücksichtigt? Beispielsweise »Uniprint« 
aus 64’er, 4/88 und Sonderheft 32 könnte man derartig erweitern. 
Wenn Sie wissen, wie so etwas funktionieren könnte, schreiben Sie 
ein Programm und schicken Sie es ein. Eine Veröffentlichung wäre, 
wenn estadellosarbeitet und jeden VlC-lnterrupt erkennt, fast sicher. 

(Nikolaus Heusler/agj 
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Weg mit dem Bildschirmrahmen 


Oben wurde bereits angesprochen, da8 man mit Hilfe der Raster¬ 
programmierung Sprites Im oberen und unteren Bildschirmrahmen 
unterbringen kann. Dadleseln Spezialkapitel Ist, wurde hierfür ein ei¬ 
gener Exkurs vorgesehen, 

Geben Sie üsting 4bltte mit dem MSE ein (Seite 159) und speichern 
Sie es. Als Beispiel können Sie üsting 6 verwenden, das üsting 4 au¬ 
tomatisch nachlädt. 

Der -Expander« wird mit 
LOAD 'BORDERLESS',6,8 
NEW 

SIfS 51000 

geladen und gestartet. Jetzt können Sie Im oberen und unteren Rah¬ 
men (seitlich geht’s leider nicht so einfach - In den üteraturhinwelsen, 
Nummer? (64'er, 1/88, Seite 62) finden Sie speziell dazu Tips) Sprites 
unterbringen - ohne besondere Kniffe. Setzen Sie einfach dis Y-Koor- 
dlnate der Sprites auf die entsprechenden Werte. 

Die Erklärung, wie dieser Effekt möglich wird. Ist etwas kompliziert. 
Sogar die Experten sind sich uneinig darüber, was genau der Grund 
dafür Ist: Ein Fehler des VIdsobaustelns, eine bisher nicht bekannte 
Betriebsart, ein Monitorfehler oder was auch Immer. 

In Zelle 51 (obere Grenze zum Rahmen) und 250 (untere Grenze, 
diese beiden Werte sind der Schlüssel zum Erfolg) wird ein Rasterin¬ 
terrupt ausgelöst. Wie Sie wissen, kann durch die BItsO bis 3 des Kon- 
trollregisters 53265 die Y-Position des Bildschirms in acht Stufen ein¬ 
gestellt und die Grö6e (24/25 Zellen) umgeschaltet werden. Schaltet 
man nun am unteren Bildschirmrand auf 25 Zeilen und verschiebt das 
Fenster nach oben, so-vergißt« der VIC, daß er sich ja mittlerweile Im 
Rahmen befindet, und zeichnet den normalen Hintergrund (Farbe 
53281) weiter. Dadurch, daß Jetzt kein Rahmen mehr dargestellt wird. 


werden die Sprites sichtbar. Nun muß noch am oberen Rand (Zeile 51) 
wieder auf 25 Zellen zurückgeschaltet werden, und der gewöhnliche 
Bildschirm wird nicht beeinflußt. 

Der Effekt wird deutlich, wenn Sie nach dem Start etwa eingeben; 
POKE 53281,11 ; POKE 53280,0 

Der Rahmen über und unter dem Textbildschirm fehlt einfach! 

Das-Raster-Utility« Ist für Spielereien dieser Art leider nicht geeig¬ 
net, da es aufgrund seiner flexibleren Programmierung zu langsam Ist 
und nicht rechtzeitig und genau gleichzeitig umschaltet. 

üsting 5 dokumentiert die Arbeitsweise des Programms »Border¬ 
less«. Nur der Befehl ab Sc743 bedarf einer näheren Erklärung. Ge¬ 
ben Sie zur Probe nach dem Start von -Borderless« einmal ein: 

POKE 16383, 8 

Am oberen und unteren Bildschirmrand erscheinen senkrechte 
Striche. Der VIC weiß nicht, was er In dem neu gewonnenen Bereich 
darstellen soll (Text funktioniert leider nicht), und so nimmt er das 
Hires-Byte aus der letzten Speicherzelle seiner Bank, In diesem Fall 
S3fff (16383). Vorsicht Ist geboten, dadlese Zelle mitten im Baslc-Spei- 
cher liegt. Durch diese Eigenart kommen auch die »Wanderungen« 
der Linien In üsting 6 zustande. 

Damit keine unnötigen Verzögerungen auftreten, schaltet »Border¬ 
less« den Timer-CIA-System-IRQ kurzerhand ab. Dafür wird am Ende 
des Ra-IHQs der normale Interrupt ausgeführt. Da die Raster-IRQs et¬ 
was schneller kommen als 60mal In der Sekunde, blinkt der Cursor 
Jetzt etwas schneller, und die Cursortasten reagieren schneller. 

Kopiert man aus dem Zelchensatz-ROM Zeichen in Sprites, können 
Sie über diesen Umweg sogar Texte Im Rahmen darstellen. Zum Bei¬ 
spiel das Zeichenprogramm »EGA« arbeitet nach diesem Prinzip. 

(Nikolaus Heusler/ag) 


Falsch; 

IF OFF = 1 THEN .C 

Richtig: 

IF OFF = 1 THEN : .C 

oder: 

IF OFF = 1 THEN LET OFF = 1 : .C 
(denn LET ist kein neuer Befehl) 

Da der normale System-Interrupt nicht mehr ganz so re¬ 
gelmäßig abläuft, gehen als Folge die Uhren TI und TIS 
falsch. Außerdem sollten Sie Operationen mit der Floppy, 
der Datasette oder einem Drucker vermeiden, während ein 
Rasterinterrupt läuft. Abstürze sind sonst nicht auszu- 
schlieBen, da diese Operationen einen ganz genauen und 
sauberen IRQ benötigen. 


Ein ähnliches Beispiel finden Sie im Demoprogramm (Li- 
sting 2). Doch nun wird Sie interessieren, wie denn das »Ra¬ 
ster-Utility« intern arbeitet und funktioniert. 

Das »Raster-Utility« ist ein vollkommen in Assembler ge- 
sohrls^mes Programm, das im Speicher von $c000 bis 
$cl98 liegt (siehe Listing 3). Der Bereich ab $c199 wird für 
das Datenfeld verwendet. Ein Datensatz für eine Rasterzei¬ 
le baut sich folgendermaßen auf: 

l.Byte: Rasterzeile (oder Nullbyte, wenn Tabellenende) 
2-3-Byte: Register ln 16-Blt-Darstellung (Low-/High-Byte) 
4.Byte: neuer Registerinhalt 
5-6.Byte; ggf. Register Nr. 2 wie oben 
7.Byte; ggf. Inhalt für Register Nr. 2 
und so weiter für alle Register, die zu dieser 
Rasterzelle gehören 


Steuerung über SYS-Befehle 


Nun soll, wie versprochen, die alternative Steuerung über 
SYS-Befehle erklärt werden. Soll das »Raster-Utility« zu¬ 
sammen mit einer anderen Erweiterung betrieben werden, 
können die vier neuen Befehle nicht installiert werden, ln 
diesem Fall betreiben Sie Listing 1 über SYS-Befehle: 

Ein = 49172 (Utility einschalten) 

Init = 49190 
Set « 49275 
Clear = 49504 
Delete« 49524 

Der Befehl SYS 49152 darf in diesem Fall nicht mehr ver¬ 
wendet werden. Um in dieser Betriebsart ein Textfenster 
zwischen Rasterzeile 100 und 200 in eine Hires-Grafik ab 
$2000 einzublenden, dient etwa folgendes Programm: 

10 SYS 49172 :REM alles einschalten 

20 SYS 49504 :REM Clear 

30 SYS 49275,100,53272,21,53265,27:REM ab Zeile 100 

Textmodus 

40 SYS 49275,200,53272,29,53265,59:REM ab Zeile 200 

wieder Grafik 

50 SYS 49190 ;REM Inlt 


danach: zwei Nullbytes als Endkennzelchnung für eine 
Rasterzeile 

Danach folgt der Datensatz für die nächste Rasterzeile. 

Die Datensätze stehen in der Reihenfolge im Speicher, in 
der sie milden SET-Befehien festgelegt wurden. Die Größe 
des Gesamtfeldes ist von der Anzahl der Rasterzeilen und 
der Anzahl der zu verändernden Register abhängig. 

Die IRQ-Vektoren $0314/5 werden auf die neue Interrupt- 
Service-Routtne bei $c0b6 verbogen, Bindet man das Ra¬ 
ster-Utility in eine Basic-Erweiterung ein, werden die Vekto- 


Raster- und Bildschirmzeiien 


Sie kennen jetzt zwei Begriffe; Rasterzelle und Bildschirmzeile. Der 
nonmaleTextblldschirm besteht aus 25 Zellen. Jede dieser sogenann¬ 
ten »Textzellen« besteht aus genau acht Rasterzeilen (vgl. Zelchen- 
satzedltoren: Ein Zeichen ist acht Pixel hoch). Das gesamte Textfen¬ 
ster umfaßt also exakt 8 mal 25 = 200 Rasterzeilen. Es gilt folgende 
Aufteilung: 

Basteraelle 0 bis 50: oberer Bildsohlrmrahiiien 
Rasterzells 51 bla 250: normaler Text-ZCrefikbildsohlrm 
Rasteraelle 251 bis 280: unterer Bildschirmrahmen 
Wichtig ist auch die Formel zur Umrechnung einer Textzeile In die 
entsprechenden Rasterkoordinaten: 

Rasterzeile - [Nummer der Textzeile (0 bis 24)j »6+50 
Beispiel: Die Textzelle 12 umfaßt die Rasterzeilen 146 bis 153 ein¬ 
schließlich. (Nikolaus Heusler/ag) 
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ren zur Ausführung eines Basic-Befehls ($0308/9) auf eine 
neue Befehls-Routine bei $c043 verbogen. 

Dre genaue Funktionsweise des Programms ersieht man 
am besten aus einem kommentierten Assembleriisting. Se¬ 
hen Sie sich Listing 3 (nicht eingeben!) an: Hier wurdejeder 
Assemblerbefehl genau erklärt. Wenn Sie bis jetzt die Ra¬ 
sterzeilen nur aus der Literatur kannten, aber Ambitionen 
in dieser Richtung haben, sehen Sie sich das Listing ein¬ 
mal genauer an, es Ist sehr lehrreich. 

Wenn Sie nun das Programm an eine andere Adresse als 
$c000 assemblieren wollen, können Sie auch Listing 3 (Sei¬ 
te 110) verwenden. Vergessen Sie in diesem Fall aber nicht, 
neben den absoluten Adressen (JMP-Befehle und so wei¬ 
ter) auch die Pointer in ScOOO (Vektor $306/7), $c01e (zeigt 
auf 255 Byte freien Speicherplatz, etwa bei $c199) sowie 
$c026 (Vektor $314/5) anzupassen. Auch der Vektor am 
Programmende ($c193) muß angepaßt werden, er soll auf 
einen RTS-Befehi im Programm oder (besser) im Kernel 
zeigen (z.B. bei $e194). 

Was ist sonst noch möglich? 


Wie Sie die neuen Erkenntnisse über die Rasterprogram¬ 
mierung anwenden, liegt letztendlich in Ihrem Ermessen. 
Gerade das Mischen von Text und Grafik bietet viele Mög¬ 
lichkeiten, etwa ein Textadventure mit eingeblendetem Gra¬ 
fikfenster oder ein Kurvendiskussionsprogramm, das auf 
dem Grafikschirm die Funktion plottet und auf Wunsch ein 
Textfenster einblendet, in dem der Funktionsterm, weitere 
Erklärungen oder die Ergebnisse der Diskussion zu finden 
sind. In einem Zeichensatzeditor können die Titel- und Me¬ 
nüzeile im normalen Zeichensatz dargestellt werden, das 
Editorfeid im Grafikmodus und die komplette Anzeige_d.es, 
Zeichensatzes in einem dritten Fenster, in dem di^ neuen' 
Zeichen aktiviert sind. Vor allem in Spielen werden Raster¬ 
interrupts eingesetzt, um (viel) mehr als »nur« acht Sprites 
gleichzeitig auf dem Bildschirm darzustellen. Dazu kopie¬ 
ren Sie ab einer bestimmten Rasterzeile Werte aus dem 
RAM in die Spriteregister des VIC, zum Beispiel sind in der 
unteren Bildschirmhälfte dann die nächsten acht Sprites zu 
sehen. Beachten Sie bitte dazu auch das Programm »Pro- 
vic 64« auf Seite 90. Auch Softscrolling wird erst durch Ra- 
IROs möglich. Läßt man die Nummer der Zeile, in der eine 
Umschaltung geschieht, variabel, wie im Demoprogramm 
ab Zeile 350, so sind Effekte denkbar wie ein Grafikfenster, 





Bild 1. Flußdiagramm für einen einfachen Raster-IRQ 

das sich langsam über einem Textbildschirm aufzieht, und 
vieles mehr. Ein sehr interessanter Effekt sind die Sprites, 
die Sie mit Hilfe des Ra-IRQ auch im oberen und unteren 
Bildschirmrahmen (!) plazieren können. Ein Beispiel dazu 
findet sich in Listing 4 (bitte mit dem MSE eingeben, Hin¬ 
weise auf Seite 159, es ist in Usting5 dokumentiert). Beach¬ 
ten Sie dazu auch den Textkasten zwei. Dieses Programm 
wird absolut geladen und nach NEW mit 
SYS 51000 


Raster-IRQ mit dem VIC 


Register 18: Beim Lesezugriff wird die Nummer der Rasterzelle, 
die gerade auf dem Schirm aufgebaut wird, 
eusgegeben. Bit 7 von Register 17 dient als 
Übertrag für Rasterzellen über 255. 

Belm Schreibzugriff wird die Rasterzelle festgelegt, 
bei der ein IRQ ausgelöst werden soll. 


Register 26; Interrupt-Request-Reglster (IRR). Dieses Register 
signalisiert, daß der VIC einen IRQ ausgelöst hat. 
Die einzelnen Bits geben die Quelle an: 

Bit 0: Rasterzelle 

Bit 1: Kollision Sprite mit Hintergrund 
Bit 2: Kollision zweier Sprites 
Bit 3: Am üghtpen wurde ein Strobe ausgelösl. Die 
X/Y-Position finden Sie In den Registern 19 
(X-Koordlnate) und 20 (Y) 

Bit 7: wird zusammen mit einem der anderen Bits 
gesetzt. 

Durch Beschreiben dieses Registers mit dem 
gelesenen Wert wird es gelöscht (muß vor 
Verlassen der IRQ-Routine geschehen). 


Register 26: Interrupt-Mask-Register (IMR). Die Bedeutung der 
Bits Ist dieselbe wie die in Register 25. Dieses 
Register dient zum Eln-/Aus5chalten der vier IRQ- 
Quellen Im VIC. Wenn beim Beschreiben dieses 
Registers das Bit 7 gesetzt Ist, werden Im Internen 
Schalter-Register die Im Datenbyte gesetzten 
Quellen-Bits gesetzt, ist Bit 7 gelöscht, löscht der 
VIC die IRQ-Möglichkeiten, deren Bits beim 
Beschreiben von Register 26 gesetzt sind. Zwei 
Beispiele: Beschreiben mit %10000001: Raster-IRQ 
einschalten, andere Quellen nicht beeinflussen. 
Beschreiben mit %00001010: Lichtgriffel- und 
SprIte/Hlntergrund-IRQ abschalten, andere Quellen 
nicht beeinflussen. Lesen dieses Registers Ist nicht 
möglich. 


Register 30 In diesen Registern wird vermerkt, welches Sprite 
und 31'. mit dem Hintergrund (Reg, 30) oder einem anderen 
Sprite (Reg. 31) Kollidiert Ist. Diese Register 
müssen nach dem Lesen manuell gelöscht 
werden. 



Tabelle 1. Die Register des VIC, die sich mit dem Raster-IRQ befassen 

108 


SONDERHEFT 43 




























































TIPS&TRICKS 


gestartet. Genauere Informationen zu diesem Thema fin¬ 
den Sie im zweiten Textkasten. In der Tabelle sind alle Regi¬ 
ster des VIC, die zur Raster-IRQ-Programmierung wichtig 
sind, zusammengefaßt. Das Bild zeigt wie eine ganz einfa¬ 
che Raster-IRQ-Routine aufgebaut ist; Der Bildschirm soll 
über Rasterzeile 150 rot sein und darunter blau. 

Das war also unser kleiner Ausflug in die weite Welt der 
Rasterprogrammierung. Wie hat es Ihnen denn gefallen? 
Sie sollten sich, so noch nicht geschehen, einmal ein wenig 
damit beschäftigen. Es ist schon toll, wie mit wenig Pro¬ 
grammierarbeit Effekte erzeugt werden können, die ein 
Einsteiger als unmöglich bezeichnen würde. Literatur zu 
diesem Thema gibt es ja mehr als genug, auch in der 64’er. 

(Nikolaus Heusler/ag) 


Literatur zum Rasterzeilen-IRQ (Auszug): 

1. Die Interrupts des Vldeocontrollers (S4'er 5/B7, S. 47] 
e, 27 Zellen auf dem Bildschirm (64'er a/B7, S. 84) 

3. Erklfirurig lum vibrierenden Blldeehlrm (64'er 2107, S, 22) 

4. Placliern beim RBBletzellen.IBO (64'er 2/67, S. 79) 

6. Soft.SorollIng auf dam C64 (e4‘er Sonderheft 4/SS, a 110) 

5. Der l/nierwaagsr-Etfekt (64'ar 4/68, S. 69) 

7. Hypsfscreen III - Sprites ohne Qrenaen (64'er 1/86, 8. 62) 

0. QrefIK Im Blldechirmrehmen (64'er 11/68, S, 67) 

9. Wellanbed auf dem Bildschirm (64’er 1/88, S. 69) 

10. 112 Sprites (84'ar 10/66, S, 47) 

11. Oer 64'er Sternenhimmel (64'er 9/86, S. 48) 

12. Xopfzellen per Raster-IRO (e4'ar 4/88, 8. 99) 

13 (Nachltag zu) 63111 (64'er 4/66, 3 96 und 1/86, S. 72) 

14. Super-Realerzellen-IRQ (e4'er 11/88, 8, 70) 

16, Assembler Ist keine AldhImleCnil 12)(e4'er 9/65, 3 109) 

16. Hlres-3(18II3) ie4'ar 6/63 3 162) 

17. Oes Maschlneneprachebuch iOr Fongaechilttene, Lothar Englisch, 
Dala Beckar Verlag, S. 110 
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: 91 

9e 

c8 

a5 

15 

91 

9e 

o8 

41 


c098 : 

Sa 

91 

9e 

Sc 

95 

cl 

20 

79 

ff 

cOaO : 

00 

c9 

2c 

fO 

df 

ce 

a9 

00 

99 

eOae : 

91 

9e 

c8 

91 

9e 

ce 

91 

9e 

aO 

eObO ; 

8o 

95 

cl 

6c 

93 

cl 

ad 

19 

35 

oObS ; 

. dO 

8d 

19 

dO 

30 

07 

ad 

Od 

bb 

oOoO : 

de 

58 

4o 

31 

ea 

ad 

12 

dO 

08 

c 0 o 8 : 

: 8d 

96 

cl 

aO 

00 

20 

Of 

cl 

e5 

oOdO ; 

; fO 

27 

cd 

96 

Ol 

fO 

06 

20 

96 

oOda ; 

; 13 

cl 

4o 

dO 

oO 

c8 

bl 

9e 

4f 

oOeO ; 

; 85 

f7 

o8 

bl 

9e 

85 

fe 

c8 

55 

c0e8 : 

; bl 

9e 

48 

98 

aa 

aO 

00 

68 

6e 

oOfO : 

; 91 

f7 

8a 

aS 

cB 

bl 

9e 

dO 

6b 

oOfS ; 

: e7 

ad 

96 

cl 

20 

32 

cl 

cd 

ca 

clOO ; 

: 96 

cl 

dO 

05 

89 

00 

20 

32 

Ob 

cl08 ; 

: cl 

ed 

12 

dO 

4g 

81 

ea 

bl 

Oe 

cllO ; 

; 9e 

dO 

le 

g8 

bl 

9e 

dO 

08 

la 

0118 ; 

; o8 

bl 

9e 

dO 

04 

a9 

00 

60 

c9 

cl20 : 

; o8 

c8 

c8 

bl 

9e 

dO 

f9 

c8 

9e 

cl28 


fO 

92 

cl30 

; ec 

60 

8d 97 

cl 

a9 

ff 

8d 

27 

cl38 

: 98 

cl 

aO 

00 

20 

Of 

cl 

fO 

3e 


ol40 : 

; 14 

cd 

97 

cl 

90 

Oa 

fO 

08 

86 

ol4e ; 

: Cd 

98 

Ol 

bO 

03 

8d 

98 

Ol 

68 

0150 : 

; 20 

13 

Ol 

dO 

ec 

ad 

98 

cl 

a6 

g156 ; 

; c9 

ff 

dO 

03 

ad 

97 

Ol 

60 

15 

ol60 ; 

; 78 

b9 

00 

8d 

la 

dO 

a 2 

31 

74 

cl68 ; 

: aO 

ea 

ee 

14 

03 

8e 

15 

03 

92 

cl70 ; 

; 58 

6o 

93 

Ol 

20 

9b 

b7 

8e 

f6 

0178 

; 96 

cl 

aO 

00 

20 

Of 

Ol 

fO 

7a 

0180 

; Oa 

cd 

96 

Ol 

fO 

06 

20 

13 

34 

0188 

: cl 

dO 

f6 

60 

a9 

00 

91 

9e 

99 

cl90 

: 6c 

93 

cl 

5f 

cl 

ff 

ff 

ff 

3e 

0198 

: ff 

ff 

ff 

ff 

ff 

ff 

00 

00 

97 


Listing 1. Das Programm »Raster- 
Utilitye ertaubt die einfache Program¬ 
mierung von Raster-IRQs auch 
von Basic aus. Dieses Programm 
wird mit dem MSE (Seite 159) 
eingegeben. 


Q PDKe 53231,isPDKE 532316,äsPRINT" {CUR,DOW 


240 


<216> 

N,2RIGHT,WHITE>DEMQPRO0RAMri 'RASTER-UTIL 


300 

.8 1,53280,8,53281,8 

<249> 

ITV 

<244> 

318 

.S 108,53280,2,53281,2 

<091> 

2 FOR X^a TO IBsPRINTjNEXT 

<199> 

320 

.5 200,53280,7,53281,7 

<247> 

3 POKE S6,32sCLRiRUN 10 

<159> 

325 

GOSUB 4 

<030> 

4 PRINT"{BLACK,UPIDRUECKEM SIE BITTE EINE 


330 

SYS 5a692:SY5 49152:PRINT”{HOME,400MN} 


TASTE ■{WHITE> 

<B21> 


HIE FINDEN AIE DAS:{2D0MN> 

<255> 

5 POKE 198,.:WAIT 19a,llPCn<E 198,. 

<042> 

332 

.S8B,53272,2i:.S136,53272,23 

<149> 

a POKE 7ei,PEEK«Z14)-llSYS 399B3lRErURN 

<134> 

334 

PRXNT“OeEN HABEN WIR GR08S/GRAFIKZEICH 


18 EIN =49172 

<179> 


EN: 

<255> 

28 INIT =49198 

<143> 

336 

PRINT” {DOHN, SPACE >nBCiicrBHijijLLK>Ul-P.aA5 


38 SET *49275 

<077> 


ABCDEFGHIKLMNOPQRS 

<171> 

48 CLEAR =49584 

<062> 

337 

PRINT"{2D0WN1UND UNTEN KLEIN/GROSSBUCH 


58 DEL =49524 

<153> 


STABEN: 

<217> 

68 9 

<036> 

330 

PRINT" fnnUMjSPflrF'lHBClIEFGH.IJ IlLnNOPB.lia 


78 SYS EIN 

<071> 


ABCDEFGHIKLMNOPDRS 

<173> 

SB SYS SET ,152,53265,27,53272,21 

<255> 

340 

PRINT"{2D0WNJÄEHR SCHOENE fiFFEKTE SIND 


90 SYS SET ,184,53272,29,53265,59 

<i5a> 


MACHBAR 

<154> 

95 PRINT"{2UP>Sa MISCHT MAN TEXT UND GRAFI 


342 

PRINT"<2DOWN,2SPACE>6IND DOCH SCHOENE 


K ! {2UP> 

<020> 


SACHEN... 

<204> 

188 FOR X=0 TD 1920IP0KE 10432*X,0iNEXT 

<171> 

344 

.S24B,53272,23:.S186,53272,21 

<01B> 

110 FOR Y=7 TO 12 

<066> 

358 

FQR X=0 TO 14 

<87a> 

120 FOR X=0 TO 39 

<10B> 

352 

POKE 49579,X+17a 

<140> 

138 POKE 4*Y*320+B192+X*8+4*SIN<X/2),36*(Y 


353 

FOR J=.TO 30:NEXT 

<027> 

-INT(Y/2)*2)+219 

<147> 

354 

NEXT 

<1I0> 

140 NEXT:NEXT 

<143> 

355 

FOR X=13 TO I STEP-1 

<087> 

160 BOSUB 4!PRINT"{D0WN>JETZT KOMMEN DIVER 


356 

POKE 49579,X+17a 

<144> 

SE FARBSPIELCHEN...{2UP} 

<062> 

357 

FOR J=.TQ 30!NEXT 

<031 > 

170 SYS CLEARtPOKE 53265,PEEK(53265)AND 22 


358 

NEXT 

<114> 

3lP0KE 53272,PEEK(53272)AND 247 

<246> 

368 

GOTO 350 

<130> 

180 : 

<1S6> 




200 SYS 49152:.C 

<165> 




210 FOR X=t TO B 

<e4B> 




228 .S X»30,53281,X+2 ,53280,X+2:NEXT 

<015> 

Listing 2. Dieses Demoprogramm zeigt die Möglich- 

230 .IiGOSUB 4:.C:SYS 49152 

<120> 

kelten des »Raster-Utility« 
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TIPS&TRICKS 


400 : 


<122> 

402 REM 

DEMDPROQRAMM 

<155> 

404 REM 

■RASTER-UTILITY- 

<102> 

40i> REM 

(C) MARKT & TECHNIK 

<1B7> 

408 REM 

VON THOMAS 3CHL0TTKE 

<211> 

410 REM 

BEARBEITET VON N. HEU9LER 

<051> 

Llsting 2. 

(Schluß) 



8c055 bne 
$c057 jmp 
8 c09b cmp 
$o05o bne 
Sc05e jmp 
Sc061 cmp 
$o063 bne 


ScO^e 

$c07b 

#?44 

?o06l 

$cl74 

#843 

$c06b 


nein, weiter testen 

sonst SET'Befehl behandeln 

'D' Befehl DELETE ? 

nein, weiter testen 

sonst DELETE-Befehl bearbeiten 

'C Befehl CLEAH t 

nein, weiter testen 

Befehl CLEAR (als neuer 
Baslc-Befehl, Eeln Einsprung) 






-J $c065 

Jsr 

$0073 i 

Zeichen nach '.C holen 





$c06e 

Jmp 

$ol60 ; 

und IRQ ausschalten 




: Assemblerlletlng zu > > 








RBster-Utlllty< < 

$c06b 

ocnp 

#$49 i 

'1' Befehl INIT ? 




j Programm von Thomas Schlottke 

$c06d 

bne 

$o078 i 

nein, dann falscher Befehl 




i Kommentar von Mlltolaua Heusler 

$a06f 

Jsr 

$0026 i 

IRQ einschalten 





$0072 

jsr 

$0073 i 

weiter in Basic 




i Einsprung duroh SYS 49152 

$o075 

Jmp($al93) ; 

Befehl beendet 




j Vektoren: IBAS und IRQ stellen 




wurde das Haschlnenprogramm nicht 

$cOOO 

Idx 

#$43 

i ab $a043 beginnt neue 




Uber neue Besiobefehle, sondern 




Befehleauawertung 




Über SYS aktiviert, zeigt der 

BoOOS 

Idy 

#$cO 

; Highbyte 




Vektor $o 193/4 auf ein normales 

$c004 

st* 

$0308 

; Baaic-Befehl-ausführen Vektor auf 




RTS bei $ol5f. Wurden mit SYS 49152 




diese Adresse 




die neuen Besiobefehle aktiviert, 

$o007 

sty 

$0309 

} > >verbiegen< < 




können die Routinen nicht über RTS 

$cOOb 

idx 

#$ae 

! Pointer umstellen auf $B7ae 




verlassen werden. Dann zeigt dieser 

SeOOo 

Idy 

#$a7 





Pointer auf $a7ae. 

$cDOe 

st* 

$0193 

; Routinen umsohalten auf Befehls- 

$0078 

Jmp 

$afOB } 

SYNTAX ERROR 




Betrieb (siehe unten bei $q075) 





ScOn 

sty 

$cl94 

; und Highbyte 



} 

Befehl SET (SYS 49275) 




; Varlbalen löschen, Einsprung 

$c07b 

jsr 

$b79b ; 

GETBYT, Komma o.ä. und Zahl hinter 




> >Eln< < (Utility Initialisieren) 




Befehl (Rasterzelle) nach X holen 




mit SYS 49172 

$c07e 

Idy 

$0195 ; 

Zeiger auf Ende der Rastertabelle 

$cOl4 

Ida 

#$00 

; Füllwert 

$c081 

txa 


Nummer der Rasterzelle 

$C016 

Idx 

#$14 

; 20 Speicherzellen löschen $ol95 

$c082 

sta 

($9e),y ; 

ln Tabelle eintragen 




bis $ola9 



f 

keine Prüfung, ob der neue Auftrag 

$c018 

ste 

$cl94,x 

; Zelle löschen 




noch in der Tabelle Platz hat, oder 

$e01b 

dex 


: -nnc.b p1tip Varlnhlp ? i 

im 


ob schon ein anderer Auftrag für 

$e01o 

bne 

$o018 

: Ja ' 



diese Rasterzeile gespeichert ist) 




; Zeiger auf Rasterzeilenspeleher 

$0084 

jsr 

$aefd ; 

Komma holen 




setzen 

$o087 

Jsr 

|b7eb i 

GETADR, 16 Bit Zahl nach $14/15, 

$c 01 e 

Idx 

#$99 

; Speicher bei $ol99 




Komma und GETBYT, Wert nach X holen 

$c020 

Idy 

#$ol 

; Highbyte 

$c08a 

Idy 

$cl95 

Zeiger auf Tahellenende 

$g022 

st* 

$9e 

j ln Pointer $9e/9f 

$coad 

iny 

t 

Byte 1 enthalt bereits die Nummer 

$C024 

sty 

$9f 

; und Highbyte 

$o03e 

Ida 

$14 ; 

Registernummer low 




! Befehl INIT (Raster-IRQ 

$e090 

sta 

($9e),y ; 

ln Tabelle eintragen 




elnschalten, SYS 49190) 

$0092 

iny 

i 

Position 3 

$o026 

Ida 

#$b6 

; IRQ-Vektor ($0314/5) 

$0093 

Ida 

$15 ; 

und Highbyte 

$o028 

sta 

$0314 

; auf $c0b6 setzen 

$0095 

sta 

($9e),y ; 

eintragen 

$o02b 

Ida 

#$o0 

! Kighbyte 



} 

kein Test, ob das Register die 

$c02d 

sta 

$0315 

i eigentlich fehlen hier die 




Adresse Null hat (dann arbeitet 




Befehle SEI und CLI 




die Routine fehlerhaft) 

$o030 

Ida 

#$00 

; blinder Befehl 

$0097 

iny 

t 

nächstes Register 

9o03Z 

Ida 

$daii 

j KontrollreglBter 1 des VIC 

$0098 

txa 

f 

erwünschten Registerinhalt 

$ö035 

and 

#$7f 

i Bit Nr. 7 (Wert 128) löschen 

$o099 

sta 

($9a),y ; 

ebenfalls eintragen 

$o037 

sta 

$1011 

) nur Raaterzellen von 0 - 255 

$c09b 

sty 

$cl95 ; 

neuen Tebellenendezeiger vormerken 




zulassen 



t 

da die Adressierung der 255 Byte 

8o03a 

Ida 

#$81 

i Interrupt (Bit 7) durah 




langen Tabelle Uber das Y-Reglster 




Rasterzelle (Bit 0) 




(S Bit) erfolgt, läuft sie nach 

$o03o 

sta 

$d01a 

; erlauben (Interrupt Maek Register, 




einer bestimmten Anzehl von Jobs 




IHR) 




über »> Fehlfunktion 

$c03f 

sta 

$d012 

; erster Interrupt bei Zelle 129 

$c09e 

Jsr 

$0079 i 

Zeichen aus Programm holen 




(unnötig) 

$cOal 

cmp 

#$2a ; 

' , ' weitere Daten 1 

$c042 

rts 


j fertig mit Initialisierung 

$o0a3 

beq 

$o084 ; 

Ja, weiteres Register eintragen 





$o0a5 

iny 

• 

f 

sonst als Endezeiohen 




; neue Befehlsroutine 

$c0a6 

Ida 

#$00 ; 

ein Nullbyte 




(Pointer $0308/9) 

$c0a8 

ste 

($9e),y ; 

eintragen (Reglstemummer low) 

$c043 

jsr 

$0073 

j nSchstes Zeichen aus Basicprogramm 

$cOaa 

iny 

f 

und nooh eins 




holen 

icOab 

ste 

($9e),y i 

(Reglstemummer high) 

80046 

cmp 

#$2e 

j ' . ' ist es ein Punkt ? 

$cOad 

iny 

1 

und ein letztes 

$c048 

beq 

$o050 

; Ja, dann neuer Befehl 

$oOae 

StB 

($9e),y ; 

Tahellenendekennzelchen 

$o04a 

jsr 

$0079 

; sonst letztes Zeichen nochmal 

$cObO 

sty 

$0195 : 

Zeiger auf Tabeilende 




holen, Flags setzen 




rlohtigstellen 

8c04d 

Joip 

$a7e7 

; und normalen Baslc-Befehl auswerten 

$c0b3 

jmp($cl93) j 

fertig (siehe $o075) 




; neuer Befehl 



t 

neue IRQ-Routlne 

$o050 

jsr 

$0073 

; Zeichen nach Punkt holen 

$o 0 b 6 

Ida $aD19 ; 

wurde IRQ duroh Videochip 

$o053 

crap 

#$53 

; 'S' Befehl SET ? 




(Rasterzelle) ausgelöst 1 
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$o0b9 

ata 

$d019 

; wenn Ja, nächste Rasteraeile 

1 

$0113 Iny 

; zweites Byte lesen (erstes 




erlauben (Register wurde durch 


Register, low) 




Lesen gelöscht) 

$0114 Ida ($9e),y 

i Nullbyte ? 

$oOba 

bml 

$c0o5 

; war der Videochip 

$0116 bne $cl20 

; nein, dann nicht Tabellenende 




; normaler IRQ 

$oll8 iny 

1 nächstes Byte lesen 

$cObe 

Ida 

$deOd 

j CIA Interrupt Steuerregister durch 

$cll9 Ida ($9e),y 

1 auch Null? 




Lesen löschen und nächsten Timer* 

$ollb bne $0121 

j nein, dann nicht Tabellenende 




IRQ erlauben (verhindert Flimmern) 


i Tabellenende erreicht, wenn drei 

JoOel 

oll 


; Raster-IRQ während System-{Tlmer)- 


Nullbytes aufeinanderfolgen 




IRQ erlauben, verhindert Flimmern 

$cild Ida #$00 

; Kennzeichen: Zero-Flag setzen 

$c0o2 

jmp 

$ce31 

{ weiter Im System-IRQ (alte Routine) 

$ollf rts 

j und Ende 

; nächste Hasterzeile suchen 




; IRQ, ausgelöst durch Rasterselle 

$0120 iny 

i Reglsteradresee low überspringen 

8o0o5 

IdB 

$d012 

; Rasterzellennummer, die IRQ 

$0121 Iny 

i Registeradresse high überspringen 




Buslöete 

$0122 iny 

; Inhalt überspringen 

$cOcS 

StB 

$0196 

; merken 

$0123 Ida {$9e),y 

; nächste Regiateradresse low lesen 

$cOob 

Idy 

#$00 

; ab der nullten Tabellenposition 

$0125 bne $cl20 

; nicht Null, dann Datensatz dieser 




suchen 


Rasterzeile nicht zu Ende 

$cOcd 

Jsr 

$clOf 

; suchen, ob Rasterzelle, die IRQ 

$0127 iny 

! wenn Null, auch Highbyte testen 




ausgelöst hat, vom Benutzer 

$0128 Ida ($9e),y 

i euch Null? 




definiert wurde 

$cl2a bne $cl2l 

! nein, dann Datensatz dieser 

$oOdO 

beq 

$cOf9 

1 Tabellenende, dann fertig 


Rasterzeile nicht zu Ende 

$cOda 

omp 

$0196 

; gefundene gleich gesuchter Zelle 7 


; zwei Nullbytes kennzeichnen Ende 

$o0d5 

beq 

$oOdd 

; Ja, dann entsprechend verfahren 


des Datensatzes zu einer 

$«0d7 

Jer 

$0113 

; sonst nächste Resterzeile anwählen 


Rasterzelle 

$cOda 

Jmp 

$o0d0 

1 und auf Gültigkeit testen 

$ol2c Iny 

i nächste Rasterzeilen-Nummer holen 




(unsauber: hier fehlt Test, 

$el2d Ida ($9e),y 

1 und prüfen 




ob Tahellenende) 

$ol2f beq $olld 

; Null, dann Tabellenende 




; Rasterzeile Identifiziert 

$ol31 rts 

; sonst fertig 

$oOdd 

iny 


! Zeiger um 1 erhöhen 



ScOde 

Ida 

($9e),y 

j Reglsteradresee low 


; sucht nächsthöhere Rasterzelle 

SaOeO 

ata 

$f7 

1 in Hilfszeiger 


(nach Nummer im Akku) 

$e0e2 

iny 


; nächsten Tabellenplatz anfahren 


; (Intervall-Schachtelung) 

$a0e3 

Ida 

(S9e),y 

; und Highbyte 

$0132 sta $0197 

; minimaler Wert 

$e0e5 

sta 

$f8 

; in Zeiger 

$0135 Ida #$ff 

i maximaler Wert 255 




; $f7/f8 enthält Jetzt Adresse des 

$0137 sta $0198 

1 also noch keine Grenze nach oben 




Registers, das verändert werden 


( sucht Rasterzeile, die zwischen den 




soll 


beiden Grenzen liegt 

$c0e7 

iny 


; Zeiger auf gewünschten neuen ^ 

#$00 

; ab Tabellenanfang suchen 

Sc0e8 

Ida 

($9e),y 

; neuen Inhalt aus Tabelle lesen 

$ol3c Jsr $olOf 

j Rasterzelle suchen 

$cOea 

pba 


; vorläufig merken 

$al3f beq $ol55 

; nicht gefunden, Tabellenende 

$cOeb 

tya 


; Zeiger (noch im Y-Register) 

$ol4l cmp $ol97 

5 größer gesuchtem Minimalwert 7 

$o0eo 

tax 


; nach X bringen 

$0144 bco $0150 

; zu klein, dann ungültig 

laOed 

Idy 

#$00 

j Y auf Null stellen (für $o0f0) 

$cl46 beq $ol50 

j gleich, dann ebenfalls nicht gültig 

jcOef 

pla 


} neuen Inhalt zurüokholen 


; neue Rasterzeile war größer als 

jaOfO 

sta 

($f7),y 

! gewünschte Änderung ausführen 


Minimalwert 




(Y • 0) 

$ol48 omp $0198 

; mit Maximalwert vergleichen 

$e0f2 

txa 


; Zeiger zurüok nach Y 

$el4b bcs $0150 

i größer gleich, dann ungültig 

$o0f3 

tay 




} Rasterzelle, deren Nummer (im Akku) 

$o0f4 

iny 


) Zeiger auf näohstes Register 


zwischen den Grenzwerten liegt. 

$o0f5 

Ida 

($9e),y 

; noch ein Datum ? 


wurde gefunden 

$e0f7 

bne 

$aOeO 

; Ja, dann ausführen 

$cl4d sta $0198 

; Nummer als neuen Maximalwert merken 

Sc0f9 

Ida 

$0196 

} Nummer der Rasterzelle 


; weiter suchen 

$oOfa 

jsr 

$0132 

; sonst ln Tabelle nächste eu 

$ol50 jsr $ell3 

j gibt es noch eine Rasterzelle ln 




bearbeitende Rasterzelle suchen 


der Tabelle? 

$oOff 

cnip 

$0196 

; höhere Rasterzelle gefunden ? 

$0153 bne $ol4l 

; Je, probieren, ob sie besser paßt 

$6102 

bne 

$cl09 

; Ja, dann ist diese als nächste dran 


; Suche beendet 




i von vorn (oben am Bildschirm) 

$0155 Ida $0198 

; wurde eine zufriedenstellende 




anfangen 


Zeile gefunden? 

$0104 

Ida 

#$00 

; kleinste (erste) Zeile ln Tabelle 

$0158 omp #$ff 

; Maximalwert Jemals geändert ? 




suchen 

$cl5e bne $ol5f 

! Ja, dann wurde etwas gefunden 

$ol06 

Jer 

$0132 

; Suohroutlne 

$cl5e Ida $ol97 

; sonst als Alternative bisherigen 

$0109 

sta 

$d012 

; als nächsl^e Rasterzeile, die einen 


Mlniraalwert 




IRQ auslösen soll, featlegsn 

$ol5f rts 

; verwenden und fertig 

$olOc 

Jmp 

$ea81 

; Interrupt-Routine beenden 


i Dieses RTS wird auch am Ende Jeder 
Routine angesprungen, wenn nicht 




; sucht ab Tabellenposition Y nach 


als neue Baslabefehle Installiert 




nächstem nicht gelöschtem 


(siehe $c075) 




Rasterzeilen-Datensetz. In A 


; Befehl CLEAR (SYS 49504) 




erscheint die Hummer der neuen 
Rasterzeile (oder Null für 

$cl60 sei 

$0161 Ida #$00 

$ol63 ata $d01a 

i alle Interrupts (System/Tlmer und 
Raster) sperren 

$olOf 

Ida 

($9e),y 

Tabellenende) und in Y die 
Tabellenposition 

j prüfen, ob Rasterzeile gelöscht 
(erstes Datensatz-Byte lesen) 

) Resterinterrupts sperren 
(Bit 7 Null) 

; in IMR schreiben 


$0111 

bne 

$0131 

i kein Nullbyte, also definiert 






(RTS, im Akku Numme der Zelle) 

Listing 3. Der komplette dokumentierte Quellcode des 




i gibt es noch einen Datensatz 7 

»Raster-Utlllty» 
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$al&6 

Idx 

#$31 


IRQ-Vektor 

$cl68 

Idy 

#$ea 

t 

auf alten Wert $ea31 

$al6a 

stx $0314 

! 

stellen 

$0164 

sty $0315 

> 

und Routine absehalten 

$0170 

oll 


} 

alle Interrupts wieder elnaehalten 

$0171 

Jmp($ol93) 

t 

fertig (siehe $c075) 




t 

Befehl DELETE (arbeitet fehlerhaft, 
SYS 49524) 

$cl74 

jsr 

$b79b 

f 

Kununer der zu löschenden 

Rasterzelle holen (nach X) 

$0177 

stx 

$0196 

t 

und merken 

$0178 

Idy 

#$00 

} 

ab Taballenanfang suchen 

$al7o 

Jsr 

$olOf 

! 

gibt es diese Rasterzelle 
ln Tabelle? 

$ol7f 

beq 

$cl8b 

1 

Tabellenende, dann fertig 
(nicht gefunden) 

$0181 

cmp 

$0196 

f 

gefundene Raaterzelle > gesuchte 
Zeile t 

$0184 

beq 

$cl8c 

} 

Ja, dann löschen 

$0186 

Jsr 

$0113 

} 

sonst weltersuchen 

$0189 

bne 

$0181 

t 

gibt es noch eine Rasterzelle? 

$cl8b 

rts 


} 

nein, dann fertig 

$ol8c 

Ida 

#$00 

l 

Löaohkennung: Mullbyte 

$cl8e 

Bta 

($96).y 

t 

Rasterzeilenlnforniatlon löschen 
da hier das Tabellenende- 
Kennzeiohen gesetzt wird, werden 
auch alle Rasterzeile-Daten 
gelöscht, die nach der Definition 
der jetzt gelöschten Zelle 
definiert wurden 

$0190 

Jrap($ol93) 

f 

fertig (siehe $o075) 




} 

Ende des Haachlnenprogramms 




> 

Varibalen 

$0193 

.Word $cl5f 

t 

Pointer zum Verlassen der Routinen 





(siehe $o075) 

$el95 

.byte $ff 

f 

Zeiger auf Tabellenpoaltion 

$0196 

.byte $ff 

f 

Nummer der gesuchten Rasterzeile 

$cl97 

.byte $ff 

/ 

Minimalwert für Suche 

$0198 

.byte $ff 

t 

Maximalwert für Suche 

$0199 

.byte $ff 

J 

ab hier beginnt der Datenspeicher 




i 

Ende des Flies 




t 

Zeropage-Speloherstellen: 

$9e/9f: Zeiger ln Datenfeld 
$f7/f8: Zeiger auf das Register 

LIstIng 3. (Schluß) 




$0743 Ida #$00 

Schattenbereloh löschen 


(letztes Byte der VIC-Bank) 

$0745 sta $3fff 

M liegt mitten Ira Baslospeioher II 

$0748 Ida #$lb 

nur Rasterlrq bei Zelle 0 - 255 


zulassen 

$o74a sta $d011 

VlC-KontroUreglster 1 

$o74d Ida #$33 

nächster Raster-IRQ bei Zelle 51 

$o74f ata $d012 

(dieser Wert Ist wichtig 1) 

$0752 Ida #$01 

Raster-IRQ elnsohalten 

$o754 sta $d01a 

IMR 

$0757 Ida #$7f 

System-IRQ aussohalten 

$c759 sta $doOd 

Timer-Register CIA 1 

$c75o oli 

IRQ elnschelten 

$o75d rts 

fertig 

$e75e rts 

hier könnte ein JMP .... eingebaut 

$c75f rts 

werden 


neue IRQ-Routlne 

$o760 Ida #$01 

Raster-Register 

$0762 sta $d019 

löschen (nächsten IRQ erlauben) 

$c765 Ida $4012 

welche Rasterzelle war es ? 

$o768 omp #$33 

Nummer 51 (oben) ? 

$o76a beq $o779 

Ja, dann entsprechend verzweigen 


IRQ durch Rasterzeile 250 

$o76c Ida #$17 

Blldsohlrra vergrößern 

$o76e sta $d011 

ln Kontrollreglster 1 

$0771 Ida #$33 

nächster IRQ bei Rasterzelle 51 

$0773 sta $d012 

(dieser Wert ist wichtig 1) 

$o776 Jmp $ea31 

und mit System-IRQ weltermaohen 


IRQ durch Rasterzeile 51 

$0779 Ida #$18 

Bildschirm verkleinern 

$o77b StB $d011 

Kontrollreglster 1 

$o77e Ida #$fa 

nächste Rasterzeile: Nr. 250 


(wichtig) 

$o780 ata $d012 

löst IRQ aus 

$0783 Jmp $ea31 

und weiter wie normal 


Prograramende 

5. So funktioniert LIstIng 4 - hier der Quellcode 



Name 

horderless 



0738 0786 

c738 

78 

a9 

60 

aO 

c7 

ed 

14 

03 

fO 

o740 

8c 

15 

03 

a9 

00 

8d 

ff 

3f 

38 

c748 

a9 

Ib 

8d 

11 

dO 

a9 

33 

ed 

47 

0750 

12 

dO 

a9 

01 

8d 

la 

dO 

a9 

95 

c758 

7f 

8d 

Od 

do 

58 

60 

60 

60 

48 

o760 

a9 

01 

Sd 

19 

dO 

ad 

12 

dO 

75 

0768 

o9 

33 

fO 

Od 

a9 

17 

ed 

11 

54 

c770 

dO 

a9 

33 

ed 

12 

dO 

4c 

31 

cf 

0778 

ea 

e9 

18 

8d 

11 

dO 

a9 

fa 

23 

o7B0 

ed 

12 

dO 

4a 

31 

ea 

00 

00 

3e 


LIstIng 4. »Border¬ 
less» schaltet 
kurzerhand den 
Blldschlrm- 
rahmen ab und 
erlaubt Sprites Im 
Rahmen. Bitte 
mit dem 
MSB (Seite 159) 
eingeben. 




; verlängerter Bildschirm 



; für Sprites Im Rahmen 



i von Nikolaus Heusler 

$c738 sei 


i Interrupt verbieten 

$0739 Ida 

#$60 

; IRQ-Vektor auf $e760 

5c73b Idy 

#$e7 

i Highbyts 

$c73d sta 

$314 

i verbiegen 

$o740 sty 

$315 

} (in Vektor 768/789 schreiben) 


I IF PEEK(51000)0120 THEN LOAD"BORDERLESS 

".B,B <181> 

Z POKE 5t,63:CLR <13a> 

3 SYS t5409:SY9 51000 <152> 

4 POKE 532B0,12jPQKE S32B1,11 <1S7> 

5 V=5sN=172! J=1jK=2 <140> 

10 POKE 53269,3lPOKE 2040,lliPDKE 2041,11 <021> 

II POKE 53286,0 <065> 

12 FOR I-.TO 62SP0KE 704+1,RND<0)*2S6iNEXT <233> 

13 PRINT"<CLR>"TAB<6) "<HB.BLUE>DBERE (3REN 

ZE TEXTBILDSCHIRM <lia> 

14 PRINT"<22D0WN>"TAB(6)"UNTERE GRENZE TEX 

TeiLDSCHIRM<LIQ.RED,HOME> <121> 

15 PRINT"fSD0WN,2SPACE>DEI1O 'BORDERLESS’1 

SPRITES IM RAHMEN <191> 

16 PRINT"tD0WN,3SPACE>NlK0LAUS HEUELER, 19 

B9 — SH 64-ER <191> 

17 PRINT"<DOWN,BPACE>WEGEN DER SPRITES FLA 

CKERT ES ETWAS... <020> 

19 PRINT"<D0WN,6BPACE>S0RRY...{2SPACE>I8T 

HALT NUR BASIC <e6e> 

20 FOR Y-.TD 255 STEP 5 <804> 

22 POKE 53249,V <029> 

24 X-SIN<A)*146+172 <071> 

26 POKE 53264,X/256JP0KE 5324B,X AND 255 <063> 

20 A=A+.05 <247> 

30 POKE 53251,((C0S(A*7)*17)+12)AND 255 <15S> 

32 POKE 53250,N <2t3> 

34 N=N+V>IF N<94 OR N>Z50 THEN V=-V <19B> 

36 POKE 16383,2tK <031> 

38 K><K+J)AND 7aW>W+liIF W>2e THEN Wx.tJ— 

J <Z47> 

40 NEXT <050> 

50 GOTO 20 <236> 

LIstIng 6. Demoprogramm zu LIstIng 4 (dieses wird 
automatisch nachgeladen) 
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Das erste lebenszehhen 


Was passiert in den ersten Sekunden nach dem 
Einschaiten Ihres C64? Woher weiß der Prozes¬ 
sor, was er zu tun hat? Was ist ein Reset-Taster, 
was ein Modul-Start? Auf diese Fragen finden Sie 
auf dieser Seite ausführlich Antwort. 

aben Sie sich nicht auch schon Gedanken darüber 
gemacht, warum sich Ihr C64 nach dem Einschalten 
für kurze Zeit »totstellt«? Brauchen die Chips erst eine 
kurze Vorwärmzelt? Muß der Prozessor erst einmal wach 
werden? 

Nein, während dieser Phase, in der der Computer zwar ein¬ 
geschaltet ist, aber noch kein Lebenszeichen (sprich 
»READY.«-Meldung) von sich gibt, wird ein sogenannter 
»Reset« ausgeführt. Dieser Reset ist für den C 64 nicht eine 
»Anwärmphase«, sondern eine höchst arbeitsintensive und 
interessante Routine. Schauen wir uns einmal an, was in 
unserem C 64 nach dem Einschalten so alles vor sich geht. 

Wenn Sie Ihren C 64 einschalten, so werden die Bausteine 
im Computer nahezu schlagartig mit Spannung versorgt. 
Würde die CPU sofort losstürmen, würde sie sofort wieder in 
den Tiefen des C 64 verschwinden. Daran hindert sie jedoch 
ein Signal am Reset-Eingang. Er liegt auf logisch >0« und 
lähmt somit den Prozessor. Zu diesem Zeitpunkt wird ein spe- 
ziellerTimer-Baustein in Gang gesetzt, der die Reset-Leitung 
kontrolliert. Erwartet, bissich die Betriebsspannung vollstän¬ 
dig aufgebaut und stabilisiert hat. Erst nach Ablauf der hard¬ 
waremäßig vorgegebenen Zeitspanne wechselt der Timer 
seinen Pegel und gibt somit den Prozessor frei, der bis dahin 
noch nicht eine einzige Operation gemacht hat. 

Doch dieser Reset (es gibt noch andere) betrifft nicht nur 
die CPU. Drei weitere Bausteine bekommen ihn auf die glei¬ 
che Weise zu spüren: der Sound-Chip (welch ein Lärm ohne 
Reset) und die zwei Port-Bausteine (CIAs). Primär betrifft der 
Einschalt-Reset also vier Bausteine. Doch nur beim Prozes¬ 
sor geht es aktiv weiter, die anderen drei werden nur in eine 
bestimmte Grundposition »gefahren«, um den Prozessor und 
uns nicht weiter zu stören. 

Am Anfang kommt ein Reset 


Wichtig ist, daß der Prozessor bei seinem ersten Zugriff das 
ROM vorfindet, denn nach Freigabe der Reset-Leitung führt 
die CPU einen bestimmten Befehl aus. Dafür sorgt der Pro¬ 
zessor selber, indem er an seinen Ausgangsports Basic, Ker¬ 
nel und I/O-Bereich selektiert. Der erste Befehl ist ein indirek¬ 
ter Sprung nach SFFFC, fast an das Ende des Speicherbe¬ 
reichs. Das heißt, der Prozessor »sieht nach«, welche 2-Byte- 
Adresse sich dort befindet, um sofort dorthin zu springen. 
BeimC 64 steht dort die Adresse $FCE2 (64738). Und dann 
geht es richtig los. 

Zunächst wird der Prozessor gegen normale Interrupts 
abgesichert (Einen NMI, also RUN/STOP RESTORE, nimmt 
er nach wie vor an, stürzt aber dabei ab.), der Stack-Pointer 
wird zurückgesetzt und das Dezimal-Flag (für uns nicht so 
wichtig, es ist hier nur der Vollständigkeit halber erwähnt) 
wird gelöscht. Dann prüft der Computer, ob sich ein Modul im 
Expansions-Port befindet. Diese Routine befindet 'sich ab 
$FD02. Er vergleicht die Adressen $8004 bis $8008, ob 
deren Inhalt den Speicherstellen $FD10 bis $FD14 ent¬ 
spricht. Sie enthalten die Zeichen »CBM80«. 

Läuft der Modul-Vergleich erfolgreich ab, wird wieder ein 
indirekter Sprung ausgeführt, diesmal nach $8000. Es wird 
also auf die dort Vorgefundene Adresse verzweigt. Allerdings 
erkennt der Computer nicht das Modul, sondern lediglich die 


Meldung »CBM80«. So ist es möglich, einen solchen Modul- 
Start zu simulieren, indem man die Modul-Identifikation ein¬ 
fach an die entsprechende Adresse (ab $8004) schreibt und 
den Vektor bei $8000 auf eine eigene Routine verzweigt. Bei 
professionellen Spielen wird auf diese Weise der Reset 
unterdrückt. Dafür bieten einige Speeder wie zum Beispiel 
SpeedDos, PrologicDos, DolphinDos und das 64'er-Dos die 
Möglichkeit, während des Resets durch Drücken einer Taste 
(<SPACE> oder <CTRL>) den Modulstart zu unterbin¬ 
den. Dies ist allerdings eine Veränderung der Systemsoft¬ 
ware. die im Commodore-Betriebssystem nicht besteht. 

Findet der Computer keinen Modul-Start vor. dann wird als 
nächstes das Register 22 des VIC auf Null gesetzt - das 
sehen Sie, wenn Sie einen Reset-Taster haben, am Abschnei¬ 
den des rechten und linken Bildrandes. 

Reset sorgt für Ruhe und Ordnung 


Im darauffolgenden Schritt, einem Unterprogramm ab 
$FDA3, werden die Portbausteine und der Sound-Chip, die 
ja auch einen Reset durchgeführt haben, abgehandelt. Bei 
letzterem wird nur die Lautstärke auf Null gesetzt, für den Fall, 
daß der Reset softwaremäßig ausgelöst wurde. In den CIAs 
dagegen werden die Timer für den Interrupt vorbereitet und 
gesetzt, die Datenrichtungs-Register, die CIA-Ports und 
sowie der Prozessor-Port definiert. 

Jetzt erst kommt der C 64 dazu, seinen Arbeitsspeicher zu 
testen und zu initialisieren. Die Routine dazu steht ab $FD50 
und ist zu etwa 98 Prozent verantwortlich für die Dauer des 
Resste-Der Bereich von $0002 bis $03FF wird komplett 
.gelöscht, der gesamte Speicher von $0400 bis $9FFF wird 
durch zweimaliges Schreiben und Auslesen auf Funktion 
getestet. Daraufhin werden die Ober- und Untergrenze des 
Basic-Bereiches definiert und das Video-RAM (der Bild¬ 
schirm) nach $0400 gelegt. 

Hardware und Ein-/Ausgabe-Vektoren sind die nächste 
Station des Resets. Damit sind die Zeiger ab $0314 gemeint. 
Deren inhaite werden von einer Routine ab $FD15 einfach 
aus einer Tabelle ab $FD30 kopiert. 

Die letzte Station des Resets ist die Initialisierung des 
Video-Controllers. Eine Tabelle ab $ECB9 wird nach $D000 
kopiert. Dadurch wird der VIC initialisiert. Danach wird die 
Tastatur-Eingabe vorbereitet, der Bildschirm gelöscht und 
nochmals der Interrupt-Timer gesetzt. Nachdem dann der 
Interrupt schließlich auch noch zugelassen wurde, wird der 
Basic-Kaltstart, durch einen indirekten Sprung nach $AOOO, 
ausgeführt. 

Wir haben vorher angesprochen, daß es mehrere Möglich¬ 
keiten gibt, einen Reset auszulösen. Den Einschalt-Reset 
können Sie auslösen, indem Sie die Reset-Leitung kurzzeitig 
auf Masse ziehen, beispielsweise durch einen Taster. Eine 
Bauanleitung dafür finden Sie im 64’er, Ausgabe 6/85. 

Einige Erweiterungen beinhalten Reset-Befehle, wie 
COLD bei Simons Basic, die dann einen Reset software- 
mäßig auslösen. Dem entsprichtein SYS 64738 im normalen 
Basic. Allerdings ist dies kein »sauberer« Reset, da nicht auto¬ 
matisch auf das ROM geschaltet wird und auch der SID und 
die CIAs nicht davon betroffen sind. Der Einsprung ist aller¬ 
dings derselbe, also mit Modul-Test und Initialisierung aller 
wichtigen Register, so daß Sie hier beliebig experimentieren 
können. Natürlich lassen sich die diversen Einsprünge auch 
unabhängig voneinander verwenden. So löst zum Beispiel 
SYS 64763 nur einen Video-Reset mit Basic-Kaltstart aus, 
ohne eventuell verstellte Interrupt-Vektoren zu korrigieren. 

(Markus Ohnesorg/ef) 
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auch lesen möchten (soll Ja Vorkommen), bietet das CIA eine 
weitere Besonderheit. Sobald Sie eines der Register lesen, 
wird die komplette Uhrzeit in einen Zwischenspeicher über¬ 
nommen. Durch diesen Kniff können Sie in aller Ruhe die 
Daten auslesen, ohne daß eine Veränderung des Zwischen¬ 
speichers eintritt. Sobald Register 8 angesprochen wird, gibt 
das CIA den Speicher wieder frei. In Listing 1 wartet ein 
Basic-Programm auf Sie, mit welchem Sie die Zeit stellen und 
ablesen können (Start mit RUN, um sie zu stellen und RUN 
200, um sie zu stoppen), Listing 2 enthält eine kurze Assem¬ 
blerroutine, die in die Interruptroutine eingefügt wird und 
Ihnen die Uhrzeit laufend auf dem Bildschirm ausgibt. Die 
eigentliche Assemblerroutine liegt bei Adresse 830. Um das 
Programm zu aktivieren, befindet sich bei Adresse 900 ein 
Programmteil, welcher den Interruptvektor auf das Hauptpro¬ 
gramm legt (SYS 900 startet die Anzeige der Uhr). 

Der Wecker im Computer 


Neben einer Uhr hat das CIA natürlich noch weitere Aufga¬ 
ben. Es löst zum Beispiel das Interruptsignal aus. durch wel¬ 
ches die bereits erwähnte Interruptroutine angesprungen 
wird. Dieses Ereignis tritt bei Unterlauf des Timers (die CIAs 
haben neben der Uhr noch zwei Timer) automatisch alle Veo 
Sekunden auf. Wir haben allerdings die Möglichkeit zu einem 
von uns vordefinierten Zeitpunkt einen zusätzlichen Interrupt 
auszulösen. Zu diesem Zweck müssen wir eine Zeit ange¬ 
ben. die wir als Alarmzeit heranziehen. Die Alarmzeit wird wie 
die normale Uhrzeit in die Register 8 bis 11 geschrieben, 
jedoch muß hierfür das Bit 7 in Register 15 gesetzt sein 
(Rücksetzen nicht vergessen). Stimmen nun die Uhrzeit und 
die von uns eingestellte Alarmzeit überein, wird ein zusätzli- 
Diese Echtzeituhr erhält ihren Takt aus der Netzfrequenz, ausgelöst und der Programmzeiger springt zu der 

Variable Tl$ hingegen wird von der Interruptroutine versorgt. 

Dieser Tatsache verdanken wir es, daß die CIA-Uhr eine so 
große Langzeitgenauigkeit vorweisen kann. Die Echtzeituhr 
hält aber noch eine weitere Überraschung für uns bereit. Es 
besteht die Möglichkeit, eine Alarmzeit anzugeben. Sobald 
diese Zeit erreicht wird, löst das CIA einen IRQ (Interrupt, 
beziehungsweise CIA 2 einen NMI = unmaskierter Interrupt) 
aus, aber dazu später noch mehr. Wie die Register der CIA- 
Bausteine belegt sind, können Sie aus Tabelle 1 entnehmen. 

Die Echtzeituhr belegt die Register 8 bis 11. 

Die Zeit starten 


DteCIA-Uhren sind im BCD-Fbrmatorganisiert. Dadurch spa¬ 
ren wir uns zwar in Maschinensprache das lästige Umrech¬ 
nen, von Basic aus ist die Umwandlung leider nicht zu umge¬ 
hen. Im BCD-Fbrmat werden zahlen zwar immer noch Bit¬ 
weise gespeichert, jedoch jede Ziffer einzeln. Mit 8 Bit lassen 
sich also zwei Ziffern (2 mal 4 Bit, 00 bis 99) darstellen. Um 
nun eine Zahl, bestehend aus zwei Ziffern, in das BCD- 
Fbrmat umzuwandeln, wird die erste Ziffer (Wertigkeit 10) mit 
16 multipliziert und zu der zweiten Ziffer (Wertigkeit 1) 
addiert. 

Aber nun wieder zu unseren CIAs. Die Basisadresse des CIA 
11st 56320 (CIA 2 = 56576), Eine kurze Registerbeschrei¬ 
bung entnehmen Sie bitte Bild 1. Zum Stellen der Uhr werden 
einfach die entsprechenden BCD-Werte in die jeweiligen 
Register geschrieben. Sobald Sie das ’/io Sekunden- 
Register überschreiben, startet die Uhr (überschreiben Sie 
jedoch die Stundenregister, stoppt sie). An Bit 7 in Register 
11 können Sie außerdem erkennen, ob es sich um eine AM- 
oder PM-Zeit handelt (AM = Vormittag, PM = Nachmittag). 
Bitte vergessen Sie nicht, Bit 7 in Register 14 zu setzen 
(Netzfrequenz 50 HZ (60 HZ)). Für den Fall, daß Sie ihre Uhr 


CIA (es2e) 



Bll 7 

Bll 5 

9il5 

BK 4 

Bit 2 

Bit 2 

BIM 

BIID 

Register 0 
SDCOO 

PA7 

7*8 

P*8 

Port A 

PA4 1 m 

PA2 

7*1 

7*6 

Register 1 
$DC01 

P87 

798 

795 

Port B 

RI* 1 798 

790 

PB. 

790 

Register 2 
$DC02 

DPA7 

DP*B 

Ostanrichtungiregisrer A 

DPAS 0PA< 1 0PK3 1 DPA2 

CPAt 

DP*0 

Register 3 
SDC03 

0PB7 

DPB8 

Delenrlchlungeregister B 

Om 1 m 1 CPU 1 DP82 

DPBt 

im 

Regleter 4 
SDC;04 

IW.7 

7*1.8 

Timer A LoW'Byti 
TAli 1 TAL« 1 TAL3 

1JL2 

T.*, 

TALO 

Regieter 5 
$DC06 

fAu; 

r*Me 

1 

TAUS 

imer A High*Byl 
7*M4 1 7*M3 

) 

T*M2 

T*MI 

T»M0 

Register 0 
SDCOd 

TB17 

TBU 

7916 

'Inter B Low-SyU 
7814 TU 

T6L2 

T&l 

TBLO 

Regleter 7 
90C07 

76117 

1 7eM8 

TlmarBHIgh-Syl 
79X5 1 76M* 1 TBM3 

i 

mz 

TBHI 


Register S 

$ocoe 



Uhr 1/10 
0 1 0 

SeHund 

TO 

u 

72 

n 

Register 9 
SOCOO 


SM* 

3W8 

Uhr Sekunde 
8MI 310 

814 

SU 

SU 

Regieter 10 
$OCOA 


MH* 

ICI2 

Jhr Minuten 
MN1 MIO 

M14 

MIO 

MU 

Regieter 11 
SDC08 

PM ^ 0 


Uhr Slunflen 
MH MkO 

M14 

MIO 

MLl 

Register 12 
$0C0C 

87 

96 

Seriel Oats Regfsi 
$( 1 { 83 

S2 

91 

so 

Register 13 
SOCOO 

n 

0 

Intemicl Corlrol Rsgislar 

0 1 7lfi 1 S7 1 TUM 

TO 

Ti 

Register 14 
SDCOE 

MHZ 

S7M00e 

Oonlrol R«gl«l9f A 

■NMOK 1 UM InUNMOOElOUIMOOel PBON 

SIAFT 

Register 16 
SDCOF 

AüVUil 

INUOK 

Control Register S 
HMODeI UM {lÜ<UC«|0(/rMODE 

P80N 

STAPT 


Se320 

56321 

56322 

56323 
5632« 

56325 

66326 

56327 

56328 
66329 

56330 

66331 

56332 

56333 

56334 

66335 


Tabelle 1. Regfsterbelegung der CIA 


Tips und Tridcs 
für Basic- 
Programmierer 

Mit den folgenden kleinen Programmen geben 
wir Ihnen einige Hilfsmittel an die Hand, die Sie in 
Ihre Programme einbinden können, um sie 
schneller und effektiver zu machen. 

V ielleicht geht es Ihnen wie mir. Sie kommen morgens 
nicht aus Ihrem Bett, verfluchen jeden Tag aufs neue 
ihren Wecker, oder verbrauchen die Nerven ihres Part¬ 
ners, der verzweifelt versucht. Sie zu wecken. Falls dies der 
Fall sein sollte, haben Sie sicher schon einmal versucht, sich 
durch Ihren Computer wecken zu lassen. Sollten Sie zu die¬ 
sem Zweck die Variable TIS (die sich ja geradezu aufdrängt) 
verwendet haben, so würden Sie zwar an diesem Morgen ge¬ 
weckt, jedoch sicher nicht zu dem Zeitpunkt, den Sie sich 
vorgesteilt hatten. Die Variable TIS hat leider die unange¬ 
nehme Eigenschaft, eine recht ungenaue Uhr zu sein. Der 
maximale Fehler liegt bei 30 Minuten pro Tag. Aberzum Glück 
hat unser Computer, wie so oft, auch hierfür eine Lösung 
parat. Es handelt sich hierbei um die beiden CIAs (Complex 
Interface Adapter), welche je eine Echtzeituhr enthalten. 
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in den IRQ-Vektoren angegebenen Adresse. Die Unterschei¬ 
dung zwischen einem Interrupt durch den Unterlauf eines 
Timers oder durch Erreichen der Alarmzelt wird durch Regi¬ 
ster 13 möglich. In diesem Register wird bei Auftreten des 
IRQ das zuständige Bit (siehe Tabelle 1) gesetzt. Zum besse¬ 
ren Verständnis erwartet Sie in Listing 3 eine kleine Routine, 
welche bei Erreichen der Alarmzeit die Farbe des Bildschirm¬ 
rahmens verändert. Diese Routine wird ebenfalls mit SYS 
900 gestartet. 

Bildschirm mal zwei 


Wäre es nicht praktisch, auf dem Monitor zwei voneinander 
unabhängige Bildschirmseiten unterzubringen? Würde sich 
ein HIRes-Bild und der dazugehörige Text nicht ungeheuer 
gut machen? Wenn ihnen diese oder ähnliche Gedanken 
schon einmal durch den Kopf gingen, dann sind Sie hier 
genau richtig. Mittels des VICs (Videocontroiier) ist es unse¬ 
rem Computer nicht nur möglich, Zahlen oder Buchstaben 
auf den Bildschirm zu bringen, er sorgt auch für die HiRes- 
Grafik, die Sprites und die Verwaltung von 16 KByte Spei¬ 
cherplatz. Da er nebenbei auch noch für die Erzeugung eines 
normgerechten PAL-Signals zuständig ist, muß er in jedem 
Augenblick genau wissen, an welcher Stelle sich der Elektro¬ 
nenstrahl Ihres Monitors gerade befindet. Mit einer kleinen 
Assemblerroutine und ein wenig Bastelei an den Interrupt- 
vektoren und -registern unseres Computers können Sie in 
dem Augenblick, in dem sich der Elektronenstrahl an einer 
von Ihnen bestimmten Position befindet, zum Beispiel von 
einem HiRes- auf einen Textbildschirm umschalten (und 
umgekehrt). Da wir dadurch dem Computer keine Chance 
lassen, eine Bildschirmseite zu vollenden und einen Bild¬ 
wechsel vorzunehmen, erscheinen zwei (oder mehrsre$:Sil-c 
der gleichzeitig. Die Trennung dieser Bilder ist abhängig von 
der Position, an welcher die Umschaltung erfolgt. Die Assem¬ 
blerroutine in Listing 4 ermöglicht die Darstellung von zwei 
Textbildschirmen (1024-2023 und 2024-3043) gleichzei¬ 
tig. In der Speicherstelle 648 können Sie festlegen, auf wel¬ 
chem Bildschirmteil Ihre Eingaben erscheinen sollen. Alle 
Ausgaben auf den Bildschirm werden ebenfalls in die Bild- 
schirmseite geschrieben, deren Adresse Sie in Speicher¬ 
stelle 648 angegeben haben. Der Wert, den Sie an diese 
Adresse POKEn müssen, errechnet sich wie folgt: Adresse 
des Bildschirmspeichers durch 256. Sobald Sie sich für eine 
Bildschirmhälfte entschieden haben, können Sie das Pro¬ 
gramm mit SYS 900 starten (Hier wird der Interruptvektor 
gesetzt, das eigentliche Programm befindet sich ab Spei¬ 
cherplatz 830. Oberer Bildschirm POKE 648,4, unterer Bild¬ 
schirm POKE 648,8). 

Der VIC hält für uns die Möglichkeit bereit, bei Auftreten 
eines bestimmten Ereignisses einen Interrupt (IRQ) auszulö¬ 
sen. Zu diesem Zweck stehen die Register 25 und 26 zur 
Verfügung. Die genaue Belegung dieser Register entneh¬ 


men Sie bitte Tabelle 2. Falls mindestens ein Bit aus Register 
25 und Register 26 übereinstimmt, wird ein IRQ ausgelöst 
und der interne Programmzähler springt zu der im IRQ-Vektor 
(788/789) angegebenen Adresse. Sobald wir diesen Zeiger 
auf ein eigenes Programm zeigen lassen, wird bei Jedem IRQ 
zuerst unser Programm angesprungen. Das Ende unseres 
Programmes sollte immer einen unbedingten Sprung in die 
eigentliche Interruptroutine beinhalten. In unserem Fall müs¬ 
sen wir die Interruptmaske (Register 26) so verändern, daß 
Register 18 als Auslöser anerkannt wird. Um eine Auslösung 
an einer bestimmten Stelle des Rasterstrahls zu erreichen, 
wird in Register 18 (17) die entsprechende Position angege¬ 
ben. Register 18 hat folglich zwei Aufgaben: 1. wird es gele¬ 
sen, so gibt es die aktuelle Position des Rasterstrahls an. 2. 
wird es beschrieben, so gilt der Wert, welcher in das Register 
geschrieben wurde als die Position des Strahls, an der der 
IRQ ausgelöst (und Bit 1/Register 25 ist gesetzt) wird. Als 
letztes Problem bleibt uns noch das CIA. Dieser Chip ist im 
Normalfall derjenige, welcher die IRQs auslöst. Für unseren 
Zweck benötigen wir jedoch nur das Interruptsignal, das vom 
VIC ausgelöst wurde. Aus diesem Grund wird zu Beginn der 


la C«5632S <22e>> 
20 POKE C+14,PEEK(C+14> DR 120 <163> 
30 POKE C+i3,PEEK(C+15> AND 127 <136> 
40 INPUT "ZEIT HHMI1SS";AS <22a> 
50 IF LEN(A*)<>d> THEN 40 <057> 
fc0 H-VAL(LEFT*(A*,2)) <02ii> 
70 ri=VAL(MlD*(A*,3,2) ) <239> 
80 S=VAHRISHT*(A*,2)> <154> 
100 IF H>12 THEN H=H+6B <0ai> 
110 POKE C+3,lt*INT<H/ia)+H-INT(H/i0)*10 <211> 
130 POKE C+2,1&*INT(H/10)+M-INT(M/10)*10 <10B> 
150 PAKE C+1,16*INT(S/10)+S-INTCS/10>*10 <090> 
SeaTü-cE C,0 <224> 
180 PRINT"CCLRI" <16a> 
200 C=5632e <lt0> 
210 H*=PEEK(C+3>:M=PEEK(C+2>:S=PEEK(C+1> sT- 

PEEK(C) <230> 
230 F=0sIF H>32 THEN H=H-12B:F»1 <013> 
240 H=«INT(H/16)*10<-H-lNT(H/li>*16:IF F“0 T 

HEN 2B0 <251> 
250 IF H-12 THEN 290 <126> 
260 H=H+12 <250> 
2B0 IF H«12 THEN H=0 <167> 
290 M-INT(M/16>*10+I1-INT(M/16)»16 <173> 
300 B"«INT(8/16)*10+S-INT(S/16>*li <131> 
320 T#=RIGHT*C"0"-t-mD»(STR»(H),2,2),2)+-"!" <254> 
340 T*-TS+RIQHT* ( "0"+MID* (STR* (MI ,2,2) ,2) 

"s" <023> 
360 T*-T*+R1GHT*("0"*MID*<STR*<S),2,2),2>+ 

. <a67> 

3B0 T*-T*+RIBHT*(BTR*(T),1) <166> 
400 PRINT"<HDME,3D0WN>”;T* <050> 
420 GOTO 210 <nS> 


Listing 1. Basic-Programm zum Stellen der Uhr 


NAHE 

t 

LI8TINQ : 

' MC 

033E 

03A3 

033E 

6 

A2 

03 

AO 

lE 

BD 

OB 

DC 

es 

Ee 

0346 

t 

FB 

29 

FO 

18 

6A 

6A 

6A 

6A 

eD 

034E 

; 

69 

30 

EA 

99 

00 

04 

AS 

FB 

6C 

0396 

• 

29 

OF 

69 

30 

ce 

99 

00 

04 

C9 

035E 

t 

ce 

B9 

3A 

99 

00 

04 

CB 

CA 

95 

03Ma 

• 

EO 

00 

DO 

Da 

AD 

08 

DC 

69 

F7 

036E 

t 

2F 

99 

00 

04 

4C 

31 

EA 

EA 

BA 

0376 

B 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

73 

037E 


EA 

EA 

EA 

EA 

EA 

EA 

7S 

A9 

30 

0386 

3 

3E 

SD 

14 

03 

A9 

03 

BD 

IS 

03 

03aE 

s 

03 

58 

60 

EA 

EA 

EA 

EA 

EA 

BA 

0396 

. 

EA 

EA 

EA 

E6 

FC 

DO 

FA 

E6 

B5 

039E 

i 

FD 

A5 

FD 

C9 

OB 

00 

00 

00 

A7 


Listing 2. Interruptroutine Uhrzeit 


NAME 

t 

LI3TINS 3 

nc 

033E 

03A3 

0336 

t 

A2 

03 

AO 

lE 

BD 

06 

DC 

es 

Ee 

0346 

9 

FB 

29 

FO 

le 

6A 

6A 

6A 

6A 

SD 

Q34E 

9 

69 

30 

EA 

99 

00 

04 

AS 

FB 

6C 

U3S6 

t 

29 

OF 

69 

30 

CB 

99 

00 

04 

C9 

035E 

• 

C8 

A9 

3A 

99 

00 

04 

C8 

CA 

9S 

0366 

s 

EO 

00 

DO 

D8 

AD 

06 

DC 

69 

F7 

036E 

t 

2F 

99 

00 

04 

AD 

OD 

DC 

C9 

35 

0376 

f 

ei 

FO 

03 

EE 

20 

DO 

4C 

31 

ZA 

037E 

t 

EA 

EA 

EA 

EA 

EA 

EA 

79 

A9 

30 

0366 

7 

3E 

8D 

14 

03 

A9 

03 

BD 

15 

03 

0366 

1 

03 

SB 

60 

EA 

EA 

EA 

EA 

EA 

BA 

039ii 

• 

EA 

EA 

EA 

E6 

FC 

DO 

F4 

b6 

aa 

039E 


FD 

A5 

FD 

C9 

oa 

00 

00 

oo 

A7 


Listing 3. Interruptroutine Aiarmzeit 


NAME 1 LISTTNB 4 MC 0336 03AD 


033E 

1 

AD 

19 

00 

A2 

FF 

BE 

19 

DO 

7B 

0346 

t 

29 

eo 

C9 

eo 

FO 

06 

4C 

31 

OB 

034E 

t 

EA 

EA 

EA 

EA 

AD 

18 

DO 

C9 

38 

0356 

S 

IS 

FO 

07 

A9 

15 

A2 

96 

16 

CB 

U3SE 

1 

90 

04 

A9 

2S 

A2 

00 

BD 

IB 

90 

0366 

1 

00 

BE 

12 

DO 

4C 

Bl 

EA 

EA 

&E 

036E 

9 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

6D 

0376 


EA 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

75 

037E 

• 

EA 

EA 

EA 

EA 

EA 

EA 

78 

A7 

30 

03B6 

; 

3E 

A2 

03 

BD 

14 

03 

BE 

15 

46 

03BE 

t 

03 

A9 

F9 

eo 

lA 

DO 

AD 

11 

97 

0396 

• 

DO 

29 

7F 

ao 

11 

DO 

H9 

9ö 

FB 

039E 

3 

BD 

12 

DO 

SB 

60 

EA 

EA 

EA 

52 

03AÖ 


EA 

EA 

EA 

EA 

EA 

EA 

EA 

00 

CF 


Listing 4. Bildschirmtellung 
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Register 

Adri 

dezJmal 

6se 

hex 

SU 7 

Bits 

Bit 6 

Bll 4 

Bit 3 

5112 

Bll 1 

510 

0 

6324S 

soooo 

X-Pssltlsn Sprits Nr. 0 

1 

63249 

$0001 

y-PoslIlon SptllB Nr. 0 

2 

63260 

$0002 

X-Poalllon Sprite Nr. 1 

3 

53261 

$0003 

V'PoBinon Sprite fJr i 

4 

53262 

$0004 

X-PoslllQii Spitts Nr. 2 

5 

63263 

$0006 

V’Positlon Sprits Nr, 2 

6 

S3264 

SDooe 

X-Positlon Sprite Nr. 3 

7 

63255 

$0007 

Y'Posillon Sprite Nr. 3 

s 

63266 

$0008 

X-Posltlon Sprits Nr. 4 

9 

53267 

$0009 

Y'Poilllcn Sprite Nr. 4 

10 

63256 

SDOOA 

X-Positlon Sprits Nr. 5 

1 1 

63259 

$D00B 

Y'Poeitlon Sprtte Nr. 6 

12 

63260 

SDOOC 

X'PosItlCri Sprite Nr. 6 

13 

63261 

$0000 

y-PpsItion Sprits Nr. 6 

14 

63282 

SOOOE 

X’PoBition Sprite Nr. 7 

1& 

53263 

SOUOF 

y-PoslNon Sprite Nr. 7 

16 

63264 

$0010 

Sprite 7. 
msb X-Positlor^ 

Sprite 6, 
meb X'PöBition 

Sprite 6, 
mabX'Poaitlon 

Sprite 4. 
meb X*Po9ltlon 

Sprite 3, 
mrt X-PoelNon 

Sprite 2, 
mab X'PosItion 

Sbrite 1 , 
iTtab X-Poallibn 

Sprite 0, 
mab x-Poainon 

1? 

63266 

SD011 

mse des 
Pssterreglators 
(Psfl. 18] 

Sshallbll tOr 
veiHnderlsn 
Hlnlergrund- 
iarbmodua 

1 ■ «meuoMiMt, 

Schaltbit tUr 
HocheuttOeuogs* 

inodus 

1 - eingeachaltet 

Schaltbit für 
Sohirm Ibeohen 

0 ■ gelöactit 

Sahallbit lUi 
Zeltenzanl 

0'24 Zeilen 

1 - 25 Zellen 

Wert der Zellenver&chiebung in 
beim Smooth Scrollln 

Y-Rlchtung 

g 

18 

63266 

$0012 

Raaterregleter Db2ii KOTTimt daa meb in 6(17. Register 17 

19 

63267 

$0013 

LIchtBriHsl X-Po:«tlon 

20 

63266 

$0014 

Uchtgrittel Y-Poaltton 

21 

63269 

SD015 

Sprtte 7 1 Sprite 6 

Ein- und Aua 
Sprite 5 

schalten von Sprite 
Sprite 4 

i.Q*‘ Sprite BUS, 
Sprites 

- Sprite em 

Sprite 2 1 Sprite 1 [ Sprite 0 

22 

53270 

$0016 

(unbenubt) 

Reset'Bfl, 
inuB 0 sein, damit 
VfC-H-Chip 

Cf 

Schaltbild für 

MehrfartmodUB 
t s eingeschaltet 

iLiras*. 

Schaltbit für 
Spaltenzahl 

0 a 38 Spalten 

1 - 40 Spalten 

Wart der Spaltenverachlebung In X*Richhjng 
beim Smoolh Scrolling 

23 

53271 

SDDir 

Sprile*V«t^p66enJng ln Y* Richtung. 0 
Sprite 7 1 Sprtte 6 ( Sprite 5 | Sprite 4 

- normale Qrd5e. 1 ^ doppelte dräBe 

Sprite 3 1 ^rlte 2 | Sprite 1 

Sprits 0 

24 

63272 

$0018 

Startedreese TextblldBcnirrn 

Startodresse Zeichengeneralor oder HIRes-Bitmap 

(unbenutzt) 

25 

53273 

SDOtd 

fntorrupt* Register 

UchlQiiftel- 

interupt'Flag 

Sprite/Sprite* 

KolBelon 

Spriie/Hinter- 
grund* Kollision 

Raater-Inlerrupl- 

Rag 

26 

53274 

$001A 

Interrupt* MeeKen- Register 

Lichtgriffel* 

Interrupt 

Sprite/Sprite* 

Koliieion 

Sprite/Hinier* 

grund'Kolilsion 

Raater*lnierrupt* 

Maske 

27 

53275 

SD01B 

Sprils/Hlnlergrund-Priorliaieniefliater 0 - Sprite hal PrIorllSI. 1 - Hlntargruna trat Priorität 

Sprite 7 ’ 1 Sprits 6 | Sprite 6 | Sprits 4 | Sprite 3 | Sprite 2 | Sprite 1 [ Sprits 0 

26 

63276 

SDOlC 

Sprite*MehrtarbfnoCu9*Regleter. 0 « NormaiderBlellung. 1 * Mehrfart3modua*Derelellung 

Sprite 7 I Sprite 6 | Sprite 6 | Sprite 4 ] Sprite 3 | Sprite 2 | Sprite 1 | Sprite 0 

29 

63277 

$0010 

Sprite* Ve rgrd6enjr 

Sprite 7 1 Sprite 6 | Sprtte 6 

t ln X'Rientung. 0 ~ normale SrdBe, 1 - doppelte QreBe 

Sprite 4 1 Sprite 3 | Sprite 2 | Sprite 1 t Sprite 0 

30 

63278 

SD01E 

8prite/Sprite*Kollleion. 0 * Keine Berührung. 1 - Berohrung 

Sprite 7 \ Sprite 6 | Sprite 6 | Sphte 4 | Sprite 3 | Sprite 2 | Sprite 1 | Sprite 0 

31 

83278 

$001F 

Spilie/Hlnlerprund-Kollialon, 0 - 
Sprite 7 1 Sprite 6 Sprite 5 | Sprite 4 

Keine Berührung. 1 Berührung 

Sprite S I Sprite 2 | Sprite 1 | Sprite 0 

32 

53280 

$0020 

(unbanutzl) 

Farbe dea BlldBChIrmrahmena 

33 

63281 

$0021 

(unbenul 2 t) 

Hinlergrundfarbe Nr. O (normele Hintergrundlerbo) 

34 

63282 

$0022 

lunMnul:l| 

Hlnlergrundlarbe Nr. 1 

36 

63283 

$0023 

(untranutzt) 

HIntergrunofarCe Nr. 2 

36 

63284 

$0024 

(unbenutzt) 

Hlnlergrundlarbe Nr. 3 

37 

63285 

SD025 

(unpenutil) 

Sprite-Mehrfarben-ReglBlsr Nt. 0 

36 

63286 

$0026 

(unbenutzt) 

Sprite* Mehrfarben*Regiater Nr. 1 

39 

63287 

$0027 

{unbenut 2 t} 

SbriteO, Farbe 

40 

63288 

$0028 

{unbenutzt) 

Spnia 1. Farbe 

41 

63289 

$0029 

{unbenutzt) 

Sbrlla 2, Farbe 

42 

63290 

SD02A 

{unbenutzt) 

Sprite 3, Farbe 

A3 

63291 

$D02B 

(unbenutzt) 

Sprite 4, Farbe 

44 

63292 

ID02C 

(unbenutzt) 

Sprite 6, Farbe 

46 

63293 

$0020 

(unbenutzt) 

Sprite 6, Farbe 

46 

53294 

$D02E 

(unbenutzt) 

Sprite 7, Farbe 



Tabelle 2. Alle Register des Video-Chips auf einen Blick 
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Routine mittels des IRQ-Flags in Register 25 abgefragt, ob 
der VtC den IRQ angefordert hat. 

Basic-Zeilen in ein laufendes Programm einfügen? Wollen 
Sie Funktionen austesten oder ein Basic-Programm ent¬ 
wickeln, welches sich selbst verändert? Mit unserem Basic 
lüsting 5< und der Assemblerroutine aus »Listing 5 MC« kön¬ 
nen Sie ohne Schwierigkeiten alle beliebigen Daten in Ihr 
Basicprogramm aufnehmen, ohne das Programm stoppen zu 

Nochträglich Befehle einfügen 


müssen. Für diese Aufgabe stellt das Betriebssystem unse¬ 
res Computers einige sehr effektive Routinen zur Verfügung. 
Unsere Aufgabe besteht nur noch darin, die einzufügenden 
Daten in den Basic-Eingabepuffer (512-600) zu schreiben 
und die Routine aufzurufen. Nach Aufruf des Programms wird 
der Vektor zur Eingabe einer Zeile auf eine Adresse innerhalb 
unseres Programms gesetzt. Daraufhin wird die komplette 
Betriebssystemroutine zur Einfügung von Programmzeilen 
abgearbeitet. Zum Ende dieser Routine würde der Pro¬ 
grammzeiger in.die Eingabe-Warteschleife springen. Durch 
die anfängliche Änderung des entsprechenden Vektors wird 
der Programmzeiger jedoch wieder auf unsere Routine 
umgelenkt. Hier wird nun der Vektor wieder auf den 
ursprünglichen Wert verändert und das Basic-Programm 
erneut gestartet. Wie bereits zu Anfang erwähnt, eignet sich 
dieser kleine Trick hervorragend zur Eingabe von Funktionen. 
Basic optimieren 

Sie haben sich sicher schon oft über die schwache Lei¬ 
stung unseres Basic-Interpreters geärgert. Je komplexer die 
Anforderungen an ein Basic-Programm sind, desto langweili¬ 
ger wird die Geschwindigkeit der betreffenden Programme. 
Viele scheuen jedoch den Schritt in Richtung Maächlnän- 
Sprache und ärgern sich weiterhin mit ihren »Schlafmützen«- 
Programmen. Betrachtet man aber die Arbeitsweise des 
Interpreters ein wenig genauer, so bieten sich einige Mög¬ 
lichkeiten zur Beschleunigung von Basic-Programmen. Ein¬ 
mal abgesehen von den verwendeten Algorithmen und der 
Struktur des Programmes gibt es mehrere Tricks, um den 
Interpreter ein wenig anzutreiben. 

Variable 

Sobald in einem Basic-Programm eine Variable benötigt 
wird, beginnt der Interpreter, vom Variablenstart an aufwärts 
zählend, nach der Variable zu suchen. Je später eine Variable 
definiert wurde, desto länger dauert der Suchvorgang. Ähn¬ 
lich verhält es sich bei Konstanten. Werden Konstante im 
Programm angegeben, so müssen diese bei jedem Durchlauf 
erneut umgewandelt werden. Definiert man Konstante als 
Variable, dann fällt die Umrechnung nur einmal an. 

(1) Konstante, Variable, und Felder in der Reihenfolge ihrer 
Zugriffshäufigkeit vordefinieren. Möglichst ein- oder zwei¬ 
stellige Variablennamen verwenden. 

Unterprogramme 

Unterprogramme müssen vom Interpreter, wie Variablen, 
erst einmal gesucht werden. Da die Suche mit der niedrigsten 
Zeilennummer beginnt, findet er Zeilen am Anfang natürlich 
schneller. 

(2) Unterprogramme sollten am Anfang eines Programmes 
stehen. 

Verzweigungen 

IFTHEN-Abfragen mit mehreren, durch AND-Verknüpfun- 
gen verbundenen, Bedingungen sollten durch Hintereinan¬ 
derlegen von mehreren IF-THEN-Abfragen verschachtelt 
werden. Beispiel; 

a. IF (A kleiner 100 AND B größer 0) THEN 

b. IF A kleiner 100 THEN IF B größer 0 THEN 

Version b bricht sofort nach Nichterfüllung der ersten 
Bedingung ab und ist somit schneller. 


(3) IF-THEN-Abfragen mit mehreren Bedingungen ver- 
schachteln. 

Leerzeichen 

REMs und Leerstellen verzögern den Programmlauf, da der 
Interpreter sie ja ignorieren muß. Je mehr Befehle sich in 
einer Programmzeile befinden, desto seltener muß der Com¬ 
puter nach neuen Zeilenanfängen suchen. 

(4) Programme kompakter verfassen. 

Strings 

Die Garbage-Cotlection-Routine des Betriebssystems be¬ 
seitigt den »String-Mülk Werden mehrere Strings definiert, 
fällt auch mehr >Müllc an. Das Tragische an dieser Routine ist 
die Geschwindigkeit; verdoppelt sich die Anzahl der Strings, 
vervierfacht (1) sich die Laufzeit. Aus diesem Grund bringt das 
Anlegen von String-Konstanten auch keinen Zeitgewinn. 

(5) So wenig Strings wie möglich benutzen. 

Potenzieren 

F^lls in Ihrem Programm eine ganzzahlige Potenzierung 
(x^, x^'..) vorkommt, ist es ratsam, die Potenzierung durch 
eine Mehrfachmultiplikation zu ersetzen. Da die Potenzie¬ 
rungsroutine des Interpreters auch Potenzierungen mit Brü¬ 
chen berrechnen kann, ist sie IV 2 mal langsamer als die 
entsprechende Multiplikation. 

(6) Potenzierung durch Multiplikation ersetzen. 

Interrupt 

Das CIA 1 löst alle Veo Sekunden einen IRQ aus, um dar¬ 
aufhin den Programmzeiger in die Interruptroutine springen 
zu lassen. Hier wird dieTastatur abgefragt, die Zeit erhöht und 
noch einige andere Dinge erledigt. Die Bearbeitung und 
Beachtung des Interrupts zweigt natürlich einen Teil der ach 
so kostbaren Rechenzeit ab. Wenn wir den Interrupt verhin¬ 
dern, solange wir die Tastatur nicht benötigen, so kann auch 
mit dieser Technik ein Basic-Programm beschleunigt werden. 
POKt;f.3333,31 verhindert den IRQ, POKE56333,159gibt 
den IRQ wieder frei. 

(7) Sperren des Interrupts. 

Probieren Sie es aus. Verändern Sie Ihre alten Programme 
in der beschriebenen Weise und vergleichen Sie die 
Geschwindigkeit. Sie werden überrascht sein. 

Zeitsparen einmal anders 


Basic-Programme werden meist erst durch den Einsatz von 
Assemblerroutinen zu Programmen mit vernünftiger Laufge¬ 
schwindigkeit. Der Sprung in diese Routinen wird häufig 
durch einen SYS-Befehi realisiert. Die ParameterObergabe 
wird in diesen Fällen meist durch vorangehende POKE- 
Befehle bewerkstelligt. Sie sollen sich nun nicht mehr länger 
mit dieser umständlichen, uneleganten und vor allem langsa¬ 
men Methode begnügen müssen. In unserem Computer ver¬ 
birgt sich eine Funktion, die von vielen Handbüchern schlicht 
vergessen oder nur im Vorübergehen behandelt wird. Es han¬ 
delt sich hierbei um die »USR-Funktion«. Im Gegensatz zum 
SYS-Befehi beinhaltet die USR-Funktion bereits eine voll¬ 
ständige Parameterübergabe. Sie kann also genauso benutzt 
werden wie alle anderen Funktionen des Basic-Interpreters 
(CHR$(x), ASC(x)...). Der Vorteil dieser Funktion ist die freie 
Definition der eigentlichen Operation durch den Program¬ 
mierer. Aber zunächst einmal die Form der Funktion: 
x1 =USR(x2), wobei x2 der Wert ist, mit welchem die Routine 
arbeitet und x1 das Ergebnis der Operation darstellt. Die 
Parameter x1 und x2 können jede beliebige Form annehmen, 
wie zum Beispiel; Zahl, Variable Zeichen, String (natürlich 
muß der Parameter zur jeweiligen Operation passen). x2 wird 
beim Aufruf der Routine automatisch in den FAC (Fließkom¬ 
maakkumulator) übernommen. Analog dazu wird der Wert 
des FAC am Ende des Programmlaufs in x1 geschoben. Die 
weitere Funktionsweise der USR-Funktion ist ähnlich dem 
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B REM **♦* STARTZEILE **** 

<B99> 

leee 

INPUT A*:IF A#-""THEN END 

<197> 

leiie 

FDR AA=a TO LEN<A»)-lsPDKE 513+AA,aSC 



(MID« (A$, AA*-1,1 > > s NEXT 9 POKE 513+AA , B 

<07l> 

iB2B 

PCKE ll,AAs8VS B3e 

<iee> 


Listing 5a. Basic-Teil elnfügen 


Nftne ! LISTING 5 HC 033E 037B 


033E 

j 

A9 

SS 

60 

02 

03 

A9 

03 

5D 

DA 


0346 

1 

03 

03 

A9 

00 

BS 

7A 

A9 

02 

OC 


a3«E 

1 

B5 

7B 

A9 

30 

4C 

9C 

A4 

A9 

91 


0336 

1 

83 

eo 

02 

03 

A9 

A4 

50 

03 

7D 


03SE 

1 

03 

4C 

71 

AB 

EA 

EA 

EA 

EA 

BO 


0366 

; 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

6S 


036E 

9 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

6D 


0376 

t 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

7S 


Listing 5b. Maschlnen-Tell elnfügen 

NAME 


LISTING 6 MC 

033E 

0353 


033E 

t 

20 

6B 

E2 

20 

E2 

BA 

60 

EA 

2C 


0346 

t 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

45 


n34E 

a 

EA 

EA 

EA 

EA 

EA 

9C 

A4 

A9 

3F 


Listing 6. USR-Routlne 

NAME 


LIBTINB 

' MC 

033C 

03F3 


033C 

• 

20 

BD 

AD 

A6 

2F, 

AS 

30 

86 

51 


0344 

a 

5F 

BS 

60 

CS 

32 

DO 

04 

E4 

BA 


034C 

t 

31 

FO 

ID 

AO 

00 

Bl 

5F 

ce 

ED 


0354 


cs 

45 

DO 

06 

AS 

46 

Dl 

5F 

43 


035C 

: 

FO 

17 

CB 

Bl 

SF 

15 

6S 

SF 

4B 


0364 

: 

AA 

cs 

Bl 

5F 

65 

60 

90 

D7 

16 


036C 

s 

A2 

E2 

B6 

22 

A9 

03 

4C 

45 

D4 


C374 

5 

A4 

Cfl 

Bl 

SF 

IS 

6S 

SF 

es 

OA 

G4e". 

037C 

s 

24 

CB 

Bl 

5F 

6S 

60 

B5 

25 

16 

0394 

? 

ca 

Bl 

5F 

20 

96 

Bl 

95 

5F 

cc 


038C 

: 

04 

60 

24 

OE 

30 

IF 

20 

A2 

CD 


0394 

s 

B6 

IB 

90 

04 

20 

67 

BG 

le 

so 


039C 

: 

AS 

5F 

69 

OS 

es 

SF 

90 

02 

as 


03A4 

8 

E6 

60 

A4 

60 

CS 

24 

90 

EC 

09 


03AC 

8 

D4 

25 

90 

ES 

60 

20 

D5 

03 

AS 


03B4 

8 

20 

oc 

BC 

le 

AS 

SF 

69 

02 

OB 


03BC 

8 

es 

SF 

90 

02 

E6 

60 

C5 

24 

26 


03C4 

; 

90 

06 

A5 

60 

cs 

25 

BO 

EA 

DF 


03CC 

8 

20 

US 

03 

20 

6F 

BB 

4C 

B4 

F3 


03D4 

1 

03 

AO 

00 

Bl 

SF 

AA 

CS 

Bl 

2F 


03DC 

1 

3F 

AB 

BA 

4C 

91 

03 

41 

52 

IC 


03£4 

t 

52 

41 

59 

20 

4E 

4F 

54 

20 

22 


03EC 


46 

4F 

SS 

4E 

C4 

00 

00 

00 

45 


Listing 7. Array-Berechnungen 

NAME 


LISTING B MC 

033E 

03SD 


033E 


20 

FD 

AE 

20 

9£ 

B7 

BA 

48 

6F 


0346 

1 

20 

FD 

AE 

20 

9E 

B7 

66 

AS 

AF 


034E 

1 

IB 

20 

FO 

FF 

20 

FD 

AE 

4C 

FB 


03S6 


A4 

AA 

EA 

EA 

EA 

EA 

EA 

17 

47 



Usting 8. Print AT*Slmulatlon 


SYS-Befehl beziehungsweise dem Aufruf einer normalen 
Basic-Funktion. Nach Aufruf der Funktion wird ein Assem¬ 
blerprogramm angesprungen. Die Adresse dieses Program¬ 
mes muß jedoch nicht bei jedem Aufruf erneut angegeben 
werden, sondern wird im sogenannten USR-Vektor 
(785/786) vordefiniert. Falls Sie die USR-Funktion bereits 
einmal ausprobieren wollten und als Antwort ein »SYNTAX 
ERROR« erhielten, so lassen Sie sich bitte davon nicht irritie¬ 
ren. Der USR-Vektor wird, wie alle anderen Vektoren, wäh¬ 
rend des »Start-Resets« auf eine festgelegte Routine des 
Betriebssystems gelegt. Der Startwert des USR-Vektors 
zeigt dann auf eine Routine, die einen »SYNTAX ERROR« aus¬ 
gibt. Aber nun zu unserer ersten Anwendung, Sie finden in 


Usting 6 eine Routine, die von dem angegebenen Wert den 
Sinuswert errechnet und diesen mit 10 multipliziert (Start an 
Adresse 830). Innerhalb von 100 Durchläufen erreicht 
unsere Routine einen Vorsprung von ’^/sq Millisekunden 
gegenüber einem entsprechenden Basic-Programm. Wie 
Sie an diesem Beispiel erkennen können, ermöglicht es die 
USR-Funktion, sowohl von Basic aus zugängliche Routinen 
wie auch Interpreter-interne Operationen aufzurufen und für 
eigene Zwecke zu nutzen. In Listing 7 haben wir für Sie 
bereits eine etwas anspruchsvollere Routine vobereitet. Die¬ 
ses Programm berechnet aus einem beliebigen Variablenfeld 
(Array) die Summe der einzelnen Argumente, ln diesem Fall 
muß bei Aufruf der USR-Funktion der Namen des Feldes 
angegeben werden und der USR-Vektor auf Adresse 828 
gerichtet sein. Wenn Sie dieses Vorhaben von Basic aus rea¬ 
lisieren möchten, müssen Sie schon eine Weile warten. Sie 
werden bereits bemerkt haben, daß Ihnen zur sinnvollen Nut¬ 
zung der USR-Funktion nicht nur der Befehlssatz der 65xx- 
Prozessoren geläufig sein sollte. Der richtige Einsatz der 
ROM-Routinen ist mindestens genauso wichtig. Zu diesem 
Zweck ist die Benutzung eines ROM-Listings unumgänglich. 
Nachfolgend erwartet Sie eine kurze Aufstellung der wichtig¬ 
sten Routinen. Bitte achten Sie bei der Benutzung der 
Arithmetik-Sequenzen auf die Einsprungadressen. Teilweise 
befindet sich zu Beginn der Routinen eine Abfrage auf 
FAC=0. Diese Abfrage sollte beim Aufruf über den USR- 
Vektor übergangen werden (Weitere ausführliche Informatio¬ 
nen über Rechenoperationen und deren Anwendung finden 
Sie in dem Artikel »Rechnen in Maschinensprache«), 


B849 : 
B850 : 
B853 : 
B867 ; 
BA28»«- 
BA2B : 
BA8C : 
BAE2 : 
BBOF : 
BB12 : 
BBA2 : 
BBFC ; 
BCOC : 
BF78 : 
BF7B : 


FAC = FAC-l-0.5 
FAC = Konstante-FAC 
FAC = ARG-FAC 
FAC = FACH-ARG 
FAC = Konstante* FAC 
FAC = ARG-FAC 
ARG = Konstante 
FAC = FAC* 10 
FAC = Konstante/FAC 
FAC = ARG/FAC 
FAC = Konstante 
FAC = ARG 
ARG = FAC 
FAC =» ARGx»’'“"''® 

FAC = ARGf«: 


Wie bereits erwähnt, können natürlich alle von Basic aus 


nutzbaren Routinen ebenfalls verwendet werden (SQR, SIN 


...). Abschließend noch eine Anregung. Versuchen Sie ein¬ 
mal, mehrere Basic-Befehle unter der USR-Funktion zusam¬ 
menzufassen. Auch durch diesen Trick kann man Basic 


beschleunigen. 


SYS und mehr 


Gerade haben wir behauptet, die USR-Funktion sei der 
Weisheit letzter Schluß, und jetzt beschäftigen wir uns doch 
wieder mit dem SYS-Befehl. Bitte glauben Sie nicht, wir 
wären inkonsequent. Es soll hier nur noch auf eine weitere 
Technik der Datenübergabe hingewiesen werden, die übri¬ 
gens auch im Umgang mit der USR-Funktion verwendet wer¬ 
den kann. Auf einfachste Weise ist es möglich, nicht nur 
einen Parameter (USR), sondern beliebig viele zu überneh¬ 
men. Hierfür bieten sich gleich drei Routinen an: 

AE83 ; holt das nächste Element eines Ausdrucks in FAC 
B79E ; holt ein Byte in das X-Register 
0073 : holt nächstes Zeichen in Akku 
Das Betriebssystem hät sogar noch einige Routinen zur 
Prüfung der zu übergebenden Parameter bereit. Aber bitte 
bemühen Sie in diesen Fällen Ihr ROM-Listing. Zum Abschluß 
finden Sie in Listing 8 eine PRINT-AT-Simulation. Der Ein¬ 
sprung erfoigt über SYS 830, spalte, zeile, »text« (siehe auch 
»Rechnen in Maschinensprache«). (Erhart/ef) 
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Sprites ohne Grenzen 

Möchten Sie den ganzen Bildschirm für die Darstellung von Sprites und 
Laufschriften nutzen? Hyperscreen III gibt Ihnen die Gelegenheit dazu. Mit diesem 
Programm sind Ihrem Bildausschnitt rechts und linle keine Grenzen 
mehr gesetzt. Ein Demo liefern wir gleich mit. 


M it einem genialen Trick hat es der Autor, Hermann 
Schinagl, geschafft, Sprites und Laufschriften im 
Rahmen neben dem Textbildschirm erscheinen zu 
lassen. »Hyperscreen lll«(Listing 1) ist das Programm, das 
dies alles möglich macht. 

Verwirklicht wird das alles mit einem kleinen, aber ein¬ 
drucksvollen Kniff. 


Der Tritk 


Der VIC (Video Interface Controller) liest bei jeder achten 
Rasterzeile den Zeichengenerator aus, um Buchstaben auf 
dem Textbildschirm darstellen zu können. Dabei wird auch 
der Bildschirmrand jedesmal abgeschaltet. Man kann in 
diesen Prozeß nur durch einen kleinen Kniff eingreifen. 
Man beeinflußt den Wert, der dem VIC angibt, welches die 
aktuelle Rasterzeile Ist. Wenn dieser Wert nie durch acht 
teilbar ist, »vergißt« der VIC das Neustellen der Ränder. Mit 
Hilfe von Hyperscreen III erreicht dieser Wert, der das Stei¬ 
len der Ränder bewirkt, nie den ominösen Wert acht. So,i 
nun können die Einstellungen für den Rand durch ein Pro¬ 
gramm geändert werden. Das war's dann. Ein Hinweis 
noch, wenn Sie diesen Trick selbst benutzen möchten: Die 
Schleife, die den Rand abstellt, darf nie eine Speicher- 
Page kreuzen. Das ganze Timing der Routine käme dabei 
völlig durcheinander. 


Sollten nach Veränderung der Scroll-Routine die Sprites 
leicht anfangen zu flackern, ist die Anpassung der Schleife 
zu ändern. 

Sie können das Programm auch dann nutzen, wenn Sie 
keine Programmierkenntnisse in Assembler besitzen. Ge¬ 
ben Sie Listing 1 mit dem MSE ein und speichern es. Da¬ 
nach geben Sie nun das kleine Basic-Programm in Listing 
2 ein und speichern es ebenfalls. Dann starten Sie das 
Basic-Programm mit »RUN«. Das Programm fordert Sie 
auf, einen Text einzutippen. Dieser wird nach Drücken von 
< RETURN > von links nach rechts über den gesamten 
Bildschirm bewegt. Natürlich können Sie die Routine auch 
von komplexeren Basic-Programmen aus ansteuern. Nut¬ 
zen Sie die Möglichkeit, den ganzen Bildschirm nach Ihren 
Vorstellungen zu gestalten. Vielleicht haben Sie sogar 
noch Verbesserungen zu der Hauptroutine? Experimente 
mit dem Programm werden sicher zu überraschenden Er¬ 
gebnissen führen. (Hermann Schinagl/kn) 


Kurzinfo: Hyperscreen 


Progb»:rnart: Tool für Sprites 
Laden; lOAD 'HYPER III.BAS",0 
Start: Nach dem Laden RUN eingeben 
Besonderheiten: Das Demo-Programm lädt den Maschinen¬ 
spracheteil -HYPER III.OBJ* nach und startet ihn mit SYS 49152. 
Das Tool läSt sich wie Im Demo-Programm leicht In eigene 
Programme einbinden. 

Programmautor: Hermann Schinagl 


Najne : 

hyper iil .obj 

cOOO cl9? 

oOOO : 

a9 

08 

ed 

16 dO a9 

00 

ed 

a9 

c008 : 

20 

dO 

8d 

21 dO 20 

44 e5 

P3 

oOlO ; 

. a9 

08 

85 

a7 20 41 

cO 

20 

63 

c0l8 : 

id 

cO 

4c 

la oO 76 

a9 

OO 

62 

o020 ; 

: 8d 

Oe 

de 

a9 7d a2 

oO 

8d 

2c 

c028 ; 

; 14 

03 

3e 

14 03 a9 

95 

8d 

f3 

c030 ; 

; 12 

dO 

a9 

01 ed la 

dO 

ad 

7ä 

c038 I 

; 11 

dO 

29 

7f 8d 11 

dO 

58 

41 

o040 : 

; 60 

a2 

00 

bd 57 Ol 

9d 00 

a3 

c048 ; 

; dO 

e8 eO 

11 dO f5 

a9 

ff 

4a 

c050 ; 

: 8d 

15 

dO 

8d Id dO 

a9 07 

5b 

o058 ; 

: aS 

99 27 

dO 88 10 

fa 

a2 

eb 

c060 ; 

; ff 

aO 07 

8b 99 fS 

07 

ca 

d6 

fl068 ; 

: 88 

10 

f8 

aO 00 98 

99 

00 

76 

o070 ; 

; 3d 

99 

00 

3e 99 00 

3f 

od 

6a 

c07ß : 

; dO 

f4 4c 

4e cl a2 

07 

ca 

82 

c080 : 

: dO 

fd 

ea 

ea a2 16 

24 

ea 

ae 

o068 ; 

: ce 

16 

dO 

ee 16 dO 

ac 

12 

32 

o090 ; 

; dO 

88 

ea 

98 29 07 

09 

18 

91 

c098 

: Sd 

11 

dO 

ea ea ea 

ea 

ca 

86 

cOaO 

; 10 

e4 a9 

Ib 6d 11 

dO 

a9 

eB 

o0a8 

; 01 

ed 

19 

dO 20 b7 

oO 

a2 

d8 

cObO 

; fl 

ca 

dO 

fd 4o bo 

fe 

a2 

e6 

oObS 

: 00 

18 3e 

00 3d 3e 

c8 

3f 

bh 

cOcO 

: 3e 

c7 3f 

3e c6 3f 

3e 88 

ea 

c0o8 

: 3f 

3e 

87 

3f 3e 86 

3f 3e 

82 

cOdO 

: 48 

3f 3e 

47 3f 3a 

46 3f 

ae 


oOdS ; 

3e 

08 

3f 

3e 

07 

3f 

3e 

06 

21 

eOeO : 

: 3f 

3e 

c8 

3e 

3e 

o7 

3e 

3e 

dO 

cÖe8 : 

: c6 

3e 

3e 

88 

3e 

3e 

87 

3e 

de 

oOfO ; 

; 3e 

86 

3e 

3e 

48 

3e 

3e 

47 

o7 

oOf8 1 

; 3e 

3e 

46 

3e 

3e 

08 

3e 

3e 

48 

olOO ; 

; 07 

3e 

3« 

06 

3« 

e6 

ee 

ee 

17 

clOa : 

: eO 

18 

dO 

ad 

c6 

a7 

dO 

46 

58 

Clio ; 

: aO 

00 

84 

fb 

bl 

9e 

Oa 

26 

d5 

Cllß : 

: fb 

Oa 

26 

fb 

Oa 

26 

fb 

85 

ee 

al20 : 

; fa 

a5 

fb 

69 

de 

85 

fb 

a2 

08 

Cl28 ; 

1 00 

aO 

00 

a9 

33 

85 

01 

bl 

74 

Cl30 : 

; fa 

9d 

00 

3d 

e6 

e8 

ee 

ce 

ac 

0138 ; 

; oO 

08 

dO 

f3 

84 

a7 

a9 

37 

49 

cl40 

; 85 

01 

e6 

9e 

dO 

02 

e6 

9f 

cb 


cl48 : aO 00 bl 9e dO 08 a9 68 ed 

0150 : a2 cl 35 9e 86 9f 60 fl ij 

0158 : 97 29 97 59 97 89 97 b9 2c 

ol60 : 97 e9 97 19 97 49 97 cl 9a 

cl68 : 48 59 50 45 52 53 43 52 8b 

cl70 : 45 45 4e 20 49 49 49 20 34 

0178 : 57 52 49 54 54 45 4e 20 be 

0160 : 42 59 20 46 45 52 4d 4l If 

0188 : 4e 4e 20 53 43 48 49 4e a8 

cl90 : 41 47 4o 20 00 8d 4l 03 03 

Listing 1. Hyperscreen NI ermög¬ 
licht die Darstellung von Sprites zu¬ 
sätzlich zum Textbildschirm 


1(50 IF A=0 THEN A»!«UOAD"HYPER III .OBJ",8 


1 1 

<035> 

105 mPUT"<CLR>IHRE TEXTE1N8ABE"1A* 

<«K.2> 

110 FÜR 1=1 TO LEN(A») 

<lSi> 

IIS PDKE 49511-*-I,ASC(MID*<A*,I,l)) 

<1B6> 

120 NEXT 

<130> 

125 POKE 49511+1,SZfPDKE 49512+1,0 

<117> 

130 SYS 49152 

<iBa> 

Listing 2. Das kurze Basic-Programm fragt nach einem 

Text, der dann als Laufschrift auf dem Bildschirm 
ausgegeben wird 
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Das SchatzkäsUheii 


I. Die Wahrheit über den 
Rasterzeilen-Intemipt 


Ein interessantes Betätigungsfeid für Assembler-Program- 
nnierer ist es, die Biiddarstellung durch den Videochip (ViC) 
aktiv, das heißt bei jedem Biidaufbau aufs Neue, zu be- 
einfiussen. Beispieie dafür sind verschiedene Farben oder 
Darsteiiungsweisen in verschiedenen Biidschirmteiien, 
das Ausschalten des Bildschirmrandes, mehr als acht Spri¬ 
tes gieichzeitig und vieles mehr. 

Damit solche Effekte perfekt sind, müssen sie störungs¬ 
frei und immer gleich gelingen; jedes Zucken, Flackern. 
Flimmern und jede Bildstörung stellen einen gravierenden 
Mangel dar. Doch gerade mit diesen Feinheiten gibt es im¬ 
mer wieder Probleme oder zumindest viel Arbeit und Ärger. 
Warum dies so ist und doch so sein muß, soll hier unter¬ 
sucht werden. 

Für eine makellose Beeinflussung der Bilddarstellung Ist 
es erforderlich, bestimmte Timingbedingungen einzuhal¬ 
ten, das heißt die Manipulationen nur in bestimmten, genau 
begrenzten Phasen des Bildaufbaus durchzuführen. Dazu 
ist es notwendig, die momentane Phase des Bildaufbaus 
mit genügender Genauigkeit festzustelien und den zeitli¬ 
chen Ablauf des Programms darauf abzustimmen. Die 
Phasen und damit die Toleranzgrenzen hängen dabei vom 
gewünschten Effekt ab. 

Der VIC liefert verschiedene Rückmeldungen über seine 
Tätigkeit, und zwar; 

- Register 18 ($12) + Bit 7 von Register 17 ($11): die Num¬ 
mer der im Moment dargestellten Rasterzeile. 

- Register 19 ($13) und 20 ($14): die Position in X-Richtung 


(halbiert) und in Y-Richtung, bei der der Lichtgriffel einen 
Impuls abgab. 

- Register 30 ($1E) und 31 ($1F): Flags für Sprite-Sprite- 
und Sprite-Hintergrund-Kollisionen. 

Das Prüfen dieser Register kann man dem VIC insoweit 


W ie in jedem Tips ÄTricks-Sonderheft haben wir auch 
diesmal wieder die besten »Kunstgriffe« für Sie ge¬ 
sammelt und drucken sie hier ab. Das Spektrum ist 
weit; Für jeden Geschmack, ob Einsteiger, »Zweisteiger«, 
Fortgeschrittener oder Profi, für jeden ist das Richtige 
dabei. Damit Sie auch schnell finden, was Sie 
suchen, haben wir die Sammlung in vier 
Rubriken aufgeteilt (siehe Tabelle). 

Einfache Grundlagen, wie 
ein Renew-Befehl oder der 
Einzeller zum Zahlenraten fehlen 
ebensowenig wie »harte Kaliber«, bei¬ 
spielsweise Informationen über die Wirkung 
des Rasterzeilen-Interrupts. 

Hoffen wir, daß diese 34 Tricks Ihnen weiterhelfen, wenn 
Sie ein Problem haben. Sie sollen aber auch Anreiz sein, 
selbst auf »Entdeckungsreise« beim C 64 zu gehen. Viel 
Spaß beim Ausprobieren und Experimentieren. 

(Nikolaus Heusler/ef) 


Kurzinfo 

Themenberetch 

Tip-Nummer 

ab Seite 

a) Grafik, Drucker 

1 bis 13 

120 

b) Programmieren 

14 bis 27 

136 

c) Mathematik 

28 bis 32 

144 

d) C64, Floppy 

33 bis 34 

146 
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Tips&Tricks 
sind das Salz in der 
Suppe jedes Programmierers. 
Doch nur selten findet man aus der 
Vielzahl der veröffentlichten 
Tricks auf Anhieb den richtigen heraus. 

Auf den folgenden Seiten 
erwartet Sie daher eine geballte 
Ladung dieser kleinen nützlichen Kniffe. 


TIPS&TRICKS 


•jIs man ihn programmieren kann, beim 

- Erreichen einer gewünschten Rasterzeiie, 

- Registrieren eines Lichtgriffeiimpuises oder 

- Feststeiien einer Spritekoiiision mit einem anderen Sprite 
oder dem Hintergrund eine Interruptanforderung (IRQ) an 
den Prozessor (die CPU) zu richten. Dadurch kann ein 
Programm bei Bedarf aufgerufen werden, ohne Rechen¬ 
zeit auf das Prüfen der Register zu ver(sch)wenden. Die 
Rückmeldung über solche Ereignisse erfolgt in Register 
25 ($19). 

Am besten und einfachsten geeignet zur Bestimmung 
der aktuellen Bildaufbauphase ist die Nummer der momen¬ 
tan dargestellten Rasterzeile, Liest ein Programm diese ge¬ 
legentlich aus. so erfährt es zwar die Zeilennummer, doch 
die Kenntnis der Bildaufbauphase ist recht ungenau, da 
nicht klar ist, welcher Teil innerhalb der Zeile dargestellt 
wird. Mit zunehmender Häufigkeit der Prüfung der Raster¬ 
zeilennummer kann man beim ersten 
Auftreten eines bestimmten Wertes ei¬ 
nen immer engeren Bereich vom Zei¬ 
lenanfang ab angeben, innerhalb des¬ 
sen der Biidaufbau gerade stattfindet. 
Liest man Register 18 ($12) schließlich 
mit maximaler Häufigkeit, um auf eine 
bestimmte Zeile zu warten, so beträgt 
die Unsicherheit darüber, wann die Zei¬ 
le begonnen wurde, nur noch sechs 
Taktzyklen (Tz) (der Abstand zweier 
Prüfungen (7 Tz) minus 1 Tz): 

LDA #Zeile 

warte CHP reglsterlS Tz 
BNE warte ;2/3 Tz 

War die Zeile bei einem Auslesen 
nicht erreicht, jedoch beim nächsten, 
so erfolgte der Wechsel 1 bis 7 Tz nach 
dem ersten Auslesen, die Differenz und 
damit die Ungenauigkeit in der Kennt¬ 
nis des Zeitpunkts beträgt also 6 Tz. 
fi Programmiert man den VIC so, daß 
' er einen Raster-IRQ auslöst, so ge¬ 
schieht dies exakt zu Beginn der ge¬ 
wünschten Zeile. Doch die CPU nimmt 
diese Interruptanforderung, wenn 
überhaupt, nur nach Abarbeitung ihres 
momentanen Befehls an. Die Zeitdauer 
der Maschinenbefehle variiert nun zwi- 
eohen 2 und 7 (8 bol einigen »iiiegaien« 
Opcodes) Taktzyklen, wodurch die 
IRQ-Annahme um bis zu 6 (7) Tz verzö¬ 
gert sein kann. Diese Verzögerung ist 
scheinbar zufällig, da nicht ohne weite¬ 
res vorhersagbar ist, bei welchem Be¬ 
fehl und in welcher Bearbeitungsphase die Interruptanfor¬ 
derung auftritt. Ich sagte absichtlich »scheinbar«, da man 
in gewissen Fällen für eine während eines Programmlaufs 
gleiche, von Programmstart zu Programmstart jedoch vari¬ 
ierende Verzögerung sorgen kann. Dazu muß das Haupt¬ 
programm. das unterbrochen werden soll, periodisch sein, 
das heißt, nach einer bestimmten Zelt müssen wieder die¬ 
selben Befehle abgearbeitet werden oder zumindest sol¬ 
che genau gleicher Zeitdauer. Nun muß man die Dauer der 
Interruptroutine und eventuell auch die Periodendauer des 
Hauptprogramms so ausgieichen, daß die Zeit für einen 
Bildaufbau (19656 Tz) minus die Zeit für Interruptroutine ein 
Vielfaches der Periodendauer des Hauptprogramms ist: 
19656-1 = k • P; kelN. 

Dann wird während eines Programmlaufs immer der glei¬ 
che Befehl im gleichen Stadium unterbrochen, doch kann 
dies nach dem Neustart des gesamten Programms ein an- 
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66 


SETVECT(OLDIHQ) 

0 

RASTER'HASTER 0,11 31.10,1998 

69 

^. 


1 

fC) 1908 BV T C 

70 

_ 

CH 

2 

-j 

71 


RTS 

3 

-,QL BILO - SIB i*N 

72 



A 

-.EO 2E1I.E1 - S26 

73 


IRQ--OUTINEM 

5 

-.EQ ZEILE: - 2EILE1+3 

74 

-j 


i 

-.20 KORMAL - 14 

75 

-TOOLATE JHP IRORET 

7 


76 

. 


6 

-.QL IRQVECT - 50314 

77 


GRUEKER STRICH • 'RASTER-MASTER' 

9 


78 



10 

-.GL VICCTfiLl - SDQH iVIC-CONTROL-REO. 

79 

-ROUT 

LDA K(ZE1LE2) 

u 

-.QL HASTEP - 4D012 

80 


CMP RASTER 

»2 

-.GL IR0FLAG3 • 50019 

61 


BCC TOOLATE 

13 

-EQ IHQHAOKS • SOOIA 

B2 


BEQ TOOLATE 

lA 

-.EQ BOROER - f0020 

63 

-. 


15 


84 

-WZEILE 

CMP RASTER 

16 

-.EQ CIAIICR « $0C0D 

69 

. 

BNE WZEILE 

17 


66 

., 


Id 

-.EQ QLDIRQ - 5EA31 

87 

. 

LOX «10 

19 

-,EQ IRQRET - 5EA7E 

86 

-WARTEl 

DBX 

30 

-J 

89 

• 

BNE WARTEl 

21 

-:••••* MAKROS •••■• 

90 



22 

-.HA SFTtRQ (ZEILE) 

91 


NOP 

23 

LOA *BILDiO!I(ZEILE/3):A(580) 

92 

. 

LDA RASTER ; 59-66 

24 

9TÄ VICCTRLl 

93 

_ 

CM? »<(ZEIL£2«1) 

35 

IJ)A 5 < (ZEILE) 

94 


BEO OKI 

26 

STA RASTSR 

99 

. 

BIT 8AA 

27 

LOA «fFT ;LOESCHEN 

96 


NOP 

23 

- STA IRQfLAOS 

97 

-! 68-71 

39 

“.RT 

96 

-OKI 

LDX «9 

30 

"j 

99 

-WÄRTB2 

DEX 

31 

-.«A SETVECT (ROUT) 

100 


BNB warte: 

32 

LDA »((ROUT) 

101 



33 

LOY «XROUD 

102 


NOP 

34 

STA IRQVECT 

103 


NOP 

35 

STY IRQVBCT+l 

104 


NOP 

36 

- RT 

105 

- 

LDA RASTER ;134-127 

37 

“ s 

106 

• 

CMP •<(ZEILE2+2) 

38 

STARTADRESSE 

107 


BEQ OK2 

39 


108 

_ 

BIT 8AA 

40 

.BA 89000 

109 

131- 

32 

41 


110 

-OK2 

LDX *10 

42 

JMP IKIT 

Ul 

-WARTES 

DEX 

43 

- JHP AUS 

U2 


BNE WAHTE3 

44 

-! 

113 



45 


114 


NOP 

46 

-IHIT SEI 

115 


LDA RASTER <108-189 

47 

-. TIMER-IRQ VERHINDERN 

116 

_ 

CMP #<(ZBILE2*3) 

48 

LDA «7P 

117 

_ 

BNE OK3 

49 

STA CIAIICR 

US 

1941 


90 

RASTER-IRQ ERLAUBEN 

119 



51 

LDA MOl 

120 

-OK3 

LDX «3 

92 

STA IRQHASKS 

121 

-WARTE4 

DEX 

53 

-1 

122 

_ 

BNB WARTE4 

54 

... snvICT(ROUT) 

123 



55 

.,. SETIFQCZEILEll 

124 


NOP 

56 

CLl 

t75S4CR 

snbiin» 

57 

-: 

126 


NOP 

58 

RTS 

127 

- 

LDA #0 

99 


126 

• 

STA BORDER 

60 

EN5g ..... 

129 

_ 

LDA »NORMAL 

61 

-AUS SEI 

130 


STA BORDER 

62 

RASTER-IRQ VERHINDERN 

131 



63 

LDA #900 

133 


LDA *$FP 

64 

ffTA IRQHASKS 

133 


STA IRQrLAGS 

65 

TIMER- IRQ ERLAUBEN 

134 

_ 

JMP OLDIRQ 

66 

LOA #901 

135 

„. 


67 

STA ClAllCR 

136 


*♦ ENDE 

Listing 1. Das Source-Listlng von »Raster Master« im Hypra-Ass-Format 


derer Befehl beziehungsweise ein anderes Stadium sein. 
Durch Ausrechnen oder Ausprobieren kann man so eine 

Zeitbalance schaffen, so daß zum Beispiel Farbumschal- 
tungen nicht flimmern. Doch diese Balance ist empfindlich 
und kann durch eine kurzfristige Änderung der Periode 
oder einen nicht periodischen Ablauf des Hauptpro¬ 
gramms gestört werden. Ein Tastendruck, Bildschirmscrol¬ 
ling oder auch ein anderer C 64 können schon zum Flim¬ 
mern führen. 

Wichtig für eine einigermaßen exakte Reaktion auf IRQs 


ist auch, daß ihre Annahme 
nicht vom Hauptprogramm 
kurzfristig verhindert wird. 
Gibt es dennoch zwingende 
Gründe, ein kurzzeitiges In¬ 
terruptverbot zuzulassen, 
so muß die Interruptroutine 
mögliche dadurch entste¬ 
hende Verzögerungen ab¬ 
puffern. So kann zum Bei¬ 
spiel auf eine spätere Ra¬ 
sterzeile gewartet werden, 
mit dem Erfolg, daß der In¬ 
terrupt auf jeden Fall begon¬ 
nen wird, ehe diese spätere 
Rasterzelle erreicht ist. Da¬ 
zu muß der Abstand zur Zei¬ 
le, in der der Interrupt aus¬ 
gelöst wird, natürlich ent¬ 
sprechend der möglichen 
Dauer des tnterruptverbots 
genügend groß gewählt 
werden. Im Direktmodus 
des Basic zum Beispiel ist 
eine solche Pufferung nö¬ 
tig, da beim Lesen eines 
Zeichens von der Tastatur 
Interrupts verboten werden, 
solange im Tastaturpuffer 
Zeichen nachgerückt wer¬ 
den. 

Für einige wenige Effekte 
genügt bereits eine grobe 
Kenntnis der momentanen 
Bildaufbauphase. dann 
reicht sogar ein ungepuffer- 
ter IRQ. Ein Beispiel ist das 
Ausschalten des senk¬ 
rechten Randes mitdrei Ra- 
sterzeilen Toleranz. Um¬ 
schaltungen an gerade 
nicht angezeigten Farben 
oder Darstellungsmodi tole¬ 
rieren Ungenauigkeiten, 
diese können mit einem ge¬ 
pufferten IRQ leicht erreicht werden. Für Umschaltungen 
an gerade sichtbaren Farben oder das Ausschalten des 
seitlichen Randes benötigt man ein genaues Zeitverhälfnis 
zum Bildaufbau. 

Hierzu möchte ich mein Verfahren (Listing 1 und 2) vor¬ 
stellen, das die Ungenauigkeiten mit jedem Rasterzeilen¬ 
wechsel halbiert. Zuerst wird ein Interrupt so programmiert, 
daß die Ungenauigkeit unter 8 Tz liegt. Dann wird solange 
gewartet, bis bei einem mittleren Wert für die Verzögerung 
gegenüber dem Idealfall (sofortige Reaktion auf Erreichen 


Name 

raster m 

baa 


0801 OSeb 

0851 

2c 

90 

78 

a9 

7f 

Sd 

Od 

de 

6b 

08bl 

a2 

09 

ca 

dO 

fd 

ea 

ea 

ea 

5d 




40 







0859 

a9 

01 

6d 

le 

dO 

a9 

46 

aO 

de 

08b9 

ad 

12 

dO 

o9 

2a 

fO 

02 

24 

57 

0801 

13 

uu 

ÜU 

00 

11 

08 

o4 

5b 

0861 

90 

dd 

14 

03 

8c 

15 

03 

a9 

ee 

08cl 

aa 

a2 

Oa 

ca 

dO 

fd 

ea 

ad 

9o 

0809 

07 

9e 

20 

32 

31 

30 

33 

20 

4f 

0869 

Ib 

8d 

11 

dO 

a9 

26 

8d 

12 

cf 

08c9 

12 

dO 

o9 

2b 

dO 

00 

a2 

03 

b9 

0811 

20 

00 

35 

06 

c4 

07 

2a 

2e 

01 

0871 

dO 

a9 

ff 

8d 

19 

dO 

58 

60 

02 

08dl 

ca 

dO 

fd 

ea 

ea 

ea 

a9 

00 

ed 

0819 

2a 

20 

27 

52 

41 

53 

54 

45 

f2 

0879 

78 

a9 

00 

8d 

la 

dO 

a9 

81 

49 

08d9 

8d 

20 

dO 

a9 

Oe 

8d 

20 

dO 

4f 

0821 

52 

20 

4d 

41 

53 

54 

45 

52 

90 

0881 

8d 

Od 

de 

a9 

31 

aO 

ea 

8d 

eO 

08el 

a9 

ff 

8d 

19 

dO 

4c 

31 

ea 

la 

0829 

27 

20 

42 

59 

20 

54 

43 

20 

Oe 

0889 

14 

03 

8c 

15 

03 

58 

60 

4c 

f2 

08e9 

01 

08 

Of 

4c 

23 

bl 

20 

d2 

22 

0831 

2a 

2a 

2a 

00 

00 

00 

aO 

9c 

b7 

0891 

7e 

ea 

a9 

28 

cd 

12 

dO 

90 

o6 










0639 

b9 

4c 

08 

99 

ff 

8f 

68 

dO 

8e 

0899 

f6 

fO 

f4 

cd 

12 

dO 

dO 

fb 

el 











0841 

f7 

a9 

34 

85 

7a 

a9 

17 

aO 

5d 

08al 

a2 

Oa 

ca 

dO 

fd 

ea 

ad 

12 

27 

Listing 2. 

»Raster Master« 




0849 

08 

20 

le 

at 

4c 

06 

90 

4c 

2e 

08a9 

dO 

c9 

29 

fO 

03 

24 

aa 

ea 

98 

geben Sie 

bitte mit 

demMSE 

ein 
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TIPS&TRICKS 


der gewünschten Zeile) nun der nächste Zeilenwechsel 
stattfände. Dies wird geprüft und so entschieden, ob die tat¬ 
sächliche Verzögerung kurz oder lang ist. Durch entspre¬ 
chende Korrektur des Zeitverhaltens wird die Ungenauig¬ 
keit halbiert. Dazu wird bei kurzer Verzögerung zusätzlich 
für die Dauer der mittleren Verzögerung gewartet 
{4 Tz). So werden kurze Verzögerungen {0 bis 3 Tz) und lan¬ 
ge (4 bis 7 Tz) zur Überlagerung gebracht (0+4=4,1+4=5, 
..., 3+4=7), Durch drei aufeinanderfolgende, geeignet an¬ 
gepaßte Halbierungen wird eine maximale Ungenauigkeit 
von 7 Tz korrigiert. Danach ist das Zeitverhältnis des Inter¬ 
ruptprogramms zum Bildaufbau eindeutig festgelegt. Zur 
Verdeutlichung habe ich im Source-Listing (Listing 1) die 
Zahl der Taktzyklen seit Beginn von »zeile2<< eingetragen: 
Man erkennt die Halbierung der Ungenauigkeit nach Jedem 
Zeilenwechsel. Wird keine absolute Genauigkeit benötigt, 
kann man Halbierungen einsparen. 

Ich nannte anfänglich drei Rückmeldungen des VIC über 
den Bildaufbau. Man könnte sie alle zur Feststellung der 
momentanen Bildaufbauphase verwenden. Die Rasterzel¬ 
lennummer ist jedoch die einfachste Möglichkeit, da sie di¬ 
rekt lesbar ist. Ein Auslösen des Lichtgriffeiimpulses, wie A. 
Beermann es tat, erfordert einige Programmiertricks und 
kann durch Impulse von außen auf dieser Leitung gestört 
werden (Leertaste. Joystick-Feuerknopf in Port 1. Lichtgrif¬ 
fel). 

Eher theoretisch ist wohl die Möglichkeit, durch eigens 
dafür gezielt plazierte Spritekollisionen die Bildaufbaupha¬ 
se zu erkennen. (Thomas Chadzelek/ef) 

2. Das Geheimnis von $3fFF 


Die Speicherzeile $3FFF ist trotz ihrer Funktion wenig be¬ 
kannt. Schaltet man mittels eines Raster-Interrupts den un¬ 
teren Rand ab, so muß in ihr der Wert Null stehen, damit im 
Bereich des ehemaligen Randes keine schwarzen Streifen 
stören. 

Denn das Bitmuster dieser Adresse wird nämlich ,40mal 
pro Rasterzeile auf den Bildschirm geschrieben. Ändert 
man dieses Bitmuster in jeder Rasterzeile, so kann man in¬ 
teressante Muster auf dem Rand erzeugen. Und das alles 
völlig ohne Sprites! Listing 3 demonstriert diesen hochin¬ 
teressanten Effekt. 


le PDKE 03200.0IPOK6 0328»,0JPRINT"CCUR.SD 
QUN,WHITE,49POCE)RftNDDEM0 VON B.SÜEBBEL 
S tC) 1907“ <234> 

15 PRINT TAB<13)"(DOWN,BREY 1>BITTE WARTEN 

...<DOWNO" <196> 

20 FOR 1-0 TO 209iReAD OiPOKE 34>B6«-H ,0iNE 

XT <091> 

30 FOR 1-0 TO 3lREH ZEICHEN DEFINIEREN <12B> 

40 FOR B-0 TD 7 <043> 

50 POKE 37120+A+I»8.2TA <171> 

51 POKE 37I44-»A+I*0,2T(7-A) I <253> 

BB NEXT A,I <0S9> 

70 FOR I«a TD 48 STEP BiREM FARBEN SETZEN <1.30> 
BB POKE 37160*1,liPOKE 37169*1.3iPOKE 3717 

0*r,3iPDKE 37171+1,13 <186> 

85 POKE 37172*1,13IP0KE 37173+1 ,3i POKE 371 

74+I,3:POKE 37175*1,1 <006> 

90 NEXT <100> 

100 SYS 36a64lREI1 MABCINENPROGRAMM I <201> 

32000 DATA 120,169,31,141,20,3,169,144,141 
.21,3,173,17,209,41,127,141,17,200,1 
69 <243> 


32001 DATA 106,141,10,200,169,129,141,26,2 

00,00.96,173,25,200,141,25,208,40,7 <063> 

32002 DATA 173,13,220,00,76,49,234,173,254 

,144,201,6,240,18,169,6,141,254,144 <1717 

32003 DATA 169,1,141,18,208,169,19,141,17, 
208,76,107,144,169,0,141,254,144,169 <214> 

32004 DATA 248,141,18,200,169,27,141,17,20 
0,76,157,144,120,169,49,141,20,3,169 <243> 

32005 DATA 234,141,21,5,169,240,141,26,208 
,08,96,173,0,145,141,255,63,160,0,23 

4 <117> 


32006 

DATA 234,234,162,0,232,224,9,200,251 



,185,1,145,141,255,63,185,48,145,141 

<i 0 a> 

Z2M7 

DATA 33,208,162,0,232,224,19,200,251 



,200,192,47,200,232,169,0,141,33,208 

<207> 

32009 

DATA 76,188,254,173,0,145,141,255,14 



5,162,0,189,1,145,157,0,145,232,224 

<165> 

Z2M9 

DATA 47,208,245,173,255,145,141,47,1 



45,173,95,145,141,255,145,162,63,189 

<072> 

32010 

DATA 47,145,157,48,145,202,224,255,2 



08,245,173,255,145,141,48,145.76,188 

<197> 

32011 

DATA 254 

<125> 

33000 

PRINT"{6DDWN,CYAN>DIESES PROORAMM KO 



MMT OHNE (!> SPRITEB" 

<169> 

33Qlfl 

PRINT"AUS. DIE ZEICHEN AUF DEN RAENO 



ERN WER-' 

<Z36> 

33020 

PRINT"DEN DURCH AENOERUNQ DE8 WERTES 



IN *3FFF'‘ 

<244> 

33030 

PRINT"ERZEUST." 

<029> 

33035 

PRINT"CD0WN18IE FINDEN DA9 MASCHINEN 



PfiQ. AB *9000" 

<179> 

33040 

PRINT TAB(13)"(WHITE,DOWNXTABTENDRU 
CK>"|P0KE 19B,e<WAIT 198,liP0KE 199, 



0 

<070> 

33032 

SVB 369531P0KE 53291,0iQOSUB 35000 

<242> 

33060 

FQR 1-0 TO 71READ QiPDKE 37120*1,QtP 
□KE 37144*1,QiPOKE 37129*1,QlPOKE 37 



136*1,0 

<1ZB> 

35070 

PDKE 37152+1,OsPOKE 37160*1.QlNEXT 

<087> 

33080 

DATA 129,195,231,255,255,231,195,129 

<1B7> 

33090 

FOR 1-0 TO 47!P0KE 37169*1.l11NEXT 

<092> 

34100 

SYS 36864iPaKE 19a,0:WAIT 19B,1>P0KE 



I9B,0iSYS 36953 

<231> 

5411B 

FOR 1-0 TO 40 STEP 9 

<120> 

34120 

POKE 37168+1,14IP0KE 37169*1,11iPOKE 



37170*1,IZtPOKE 37171+1,15 

<2I7> 

34130 

POKE 37172*t,l5>PaK6 37173*1,12sPDKE 



37174*1,llsPOKE 37175+1,14 

<022> 

34140 

NEXTiSVS 36864 

<216> 

34150 

POKE 19ß,BiWAIT 19B,ltP0KE 198,0iSY6 



36933sREST0REsGQTD 10 

<070> 

3S00O 

PRINT"<CLR,NH1TE}AUFBAU DES MASCHINE 



NPROGRAMMSs" 

<253> 

35010 

PRINT"{2DDWN,CYAN}DER ERSTE RASTERIN 



TERRUPT BEI *0FB BORGT" 

<060> 

35020 

PRINT"<UP,WHITE>FUER DAS AUSSCHALTEN 



DES RANDES, INDEM" 

<064> 

■55030 

PRINT"(CYANIAUF 24 ZEILEN UMGESCHALT 



ET WIRD. HIER" 

<179> 

35040 

F«INT"<WHITE>BEBINNT DANN EINE SCHLE 



IFE, DIE DIE VER-" 

<216> 

35050 

PRINT"(CYAN,UPJSCHIEDENEN WERTE IN D 



AS RESISTER *3FFF" 

<139> 

35060 

PRINT " <WHITE>SCHREIBT. ZWISCHEN DIES 



EN AENDERUNBEN" 

<235> 

35070 

PRINT-(CYANIWIRD EINE WARTESCHLEIFE 



DURCHLAUFEN,DIE" 

< ioa> 

350SO 

PRINT"<WH1TE>DANN BEENDET IST, WENN 



DER ELEKTRONEN-" 

C094> 

15090 

PRINT"(CYANISTRAHL EINE NEUE ZEILE E 



RREICHT." 

<076> 

3S1D0 

PRINT"(DOWN,WHITEIEIN ZWEITER INTERR 



UPT SCHALTET DANACH " 

<072> 

35110 

PRINT"(CYANIWIEDER AUF 25 ZEILEN UM. 




<224> 

35120 

PRINT'‘<DOWN,WHITE}DIE ZEICHENDATEN L 



lEGEN AB *9100, DIE" 

<151> 

39170 

PRINT"<CYAN>FAReDATeN AB »9130. BEID 



E FELDER WER-" 

<079> 

35140 

PRINT-CWHITEIGESCROLLT, SO DASS DIE 



ERZEUGTE GRAFIK" 

<19B> 

35150 

PRINT"<CYAN>BEW£GT WIRD." 

<027> 

35160 

PRINT"<WHITE,2D0WN>DA8 MASCHINENPROG 



RAMM WIRD MIT SYS36a64" 

<I59> 

35170 

PRINT"(CYANIGESTARTET UND MIT SYS369 



53 BEENDET."IRETURN 

<073> 

35180 

REM STEFFEN GOEBBELS 

<e4a> 

35190 

REM ALTE HEERSTR, 25 

<174> 

35200 

REM 4179 WEEZE 1 

<217> 

Listing 3. 

»rand" demonstriert die Verwendung von S3FPF 


Funktion des Maschinenprogramms 

Zuerst werden alle Vorbereitungen zur Benutzung von 
Raster-Interrupts getroffen. Mit ihnen wird der oberen und 
untere Bildschirmrand ausgeschaltet. Wie dies geschieht, 
wurde schon mehrmals im 64'er-Magazin geschrieben 
(z.B. 64’er, 5/87, Seite 47). 

Erreicht der Rasterstrahl den unteren Rand, so gelangt 
das Programm in eine Schleife, die so lange andauert, bis 
der Strahl wieder den beschreibbaren Teil des Bildschirms 
erreicht. Während dieser Schleife werden Daten in die 
Speicherzellen $3FFF und $D021 geschrieben. Dieser 
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Schreibvorgang wird von einer Verzögerungsschleife so 
gesteuert, daß er jeweils bei Erreichen einer neuen Raster¬ 
zeile stattfindet. Mit $D021 werden die Hintergrundfarben 
geändert, mit $3FFF das Bildmuster. Denn diese Speicher¬ 
stelle ist für das Aussehen des Randes verantwortlich: Ihre 
Bits werden in jeder Rasterzeile 40mal nebeneinander dar¬ 
gestellt. In einer solchen Zeile läßt sich dieser Wert aus Zeit¬ 
gründen nicht ändern. Aber jede Zeile kann von einem neu¬ 
en Wert bestimmt sein, so daß Interessante Muster erzielt 
werden können. Auf dem Rand lassen sich also Zeichen 
darstellen, wobei jedes Zeichen 40mal in einer Zeile steht. 

Ein weiterer Teil des Programms bewegt die Datenfelder, 
so daß die Randinformation gescrollt wird. 

Das gesamte Programm »hängt« im Interrupt des C64, 
so daß bei Verlassen des Basic-Programms durch Drücken 
der STOP-Taste der Rand weiterhin verändert wird. Die be¬ 
schriebene Funktion bezieht sich übrigens nicht nur auf die 
Adresse $3FFF. sondern generell immer auf die letzte 
Adresse des 16 K-Blocks, den der VIC gerade ansprechen 
kann. Also $3FFF, $7FFF, $BFFF oder $FFFF. 

(Steffen Goebbels/Andrä Moll/ef) 


3. Kopfieilen per Rasfer-Interrupt 


Dieses Programm (Listing 4) bietet dem Programmierer in 
Basic oder Maschinensprache bis zu drei Statuszeilen am 
oberen Rand des Bildschirms. 

Besonderheiten: 

»Kopfzeilen«arbeitetmitRasterzeilen-lnterrupt. Dadurch 
ist es nicht nötig, das Betriebssystem ins RAM zu kopieren, 
wie es die üblichen Statuszeilen-Programme machen. So 
bleibt das RAM unter dem ROM frei und kann für sinnvölle-- 
re Zwecke verwendet werden. 

Das Programm ist in Maschinensprache geschrieben 
und belegt den Speicher von 49152 bis 49301 ($C000 bis 
$C095). Weiterhin werden noch 240 Byte als Speicher be¬ 
nötigt. 

Bei der Arbeit mit »Kopfzeilen« geht man folgenderma¬ 
ßen vor: 

1. Durch »POKE 49152 + 9, ZL«stellenSie die Anzahl der 
Statuszeilen ein (ZL: 1 bis 3). Falsche Angaben werden 
nicht überprüft. 

2. Durch »SYS 49152-1-6« werden die oberen Zeilen (je nach 
ZL eine bis drei) in den Zwischenspeicher gerettet, auch 
die Farbbytes. 



Name 

Iiopfzellen 



oOOO o095 


oOOO 

4o 

Oa 

oO 

4o 

62 

cO 

4o 

74 

51 


c008 

oO 

02 

78 

a9 

2d 

a2 

oO 

8d 

23 


cOlO 

14 

03 

8e 

15 

03 

ae 

09 

cO 

37 


coie 

bd 

90 

eO 

8d 

12 

dO 

ad 

11 

80 


c020 

dO 

29 

7f 

8d 

11 

dO 

a9 

61 

58 


c028 

Sd 

la 

dO 

58 

60 

ad 

19 

dO 

7b 


c030 

8d 

19 

dO 

30 

07 

ad 

Od 

de 

50 


o038 

58 

4o 

31 

ea 

78 

ae 

09 

oO 

03 


o040 

bd 

8a 

oO 

aa 

bd 

94 

oO 

9d 

86 


o048 

00 

04 

bd 

Oc 

cl 

9d 

00 

d8 

f6 


c050 

ca 

10 

fl 

aa 

09 

oO 

ad 

12 

e6 


o058 

dO 

dd 

8d 

cO 

90 

f8 

58 

4c 

5d 


c060 

81 

ea 

78 

a9 

00 

8d 

la 

dO 

20 

Listing 4. 

o068 

a9 

31 

a2 

ea 

8d 

14 

03 

de 

52 

o070 

15 

03 

58 

60 

ae 

09 

cO 

bd 

db 

»Kopfzeilen« 

c078 

8a 

oO 

aa 

bd 

00 

04 

9d 

94 

84 

per 

c080 

cO 

bd 

00 

d8 

9d 

Oc 

Ol 

oa 

11 

Rasterzeilen- 

c 088 

10 

fl 

60 

27 

4f 

77 

3b 

43 

b2 

Interrupt 

C090 

4b 

le 

Oa 

00 

00 

ff 

00 

00 

6d 


10 REM DEMO EUER 'KOPFZEILEN' <2Z7> 

20 REM <0a2> 

30 REM (W) BERND SCHÜLLER 1987 <'201> 

40 REM <102> 

50 IF fl=0 THEN fl*l:LOflD"KOPFZEILEN",B,l <128> 
60 IN=49132:OF=49lS2+3 <179> 

70 ßT=491S2+6lZL=49152*9 <19S> 

80 POKE ZL,3 <149> 

90 POKE 53280,0!POKE 33281,0iSYS OF <0I4> 

100 PRINT'‘«CLR,LIQ.BLUE»DEMO FUER DAS PROB 

RAMMÄSPACE, RED»' KOPFZEILEN' •' <B38> 

110 PRINT"«LIB.BLUE»eiS ZU«SPACE,YeLLaW»DR 
EI«LI8.BLUE,EPACE»STATU3ZEILEN MOESLIC 
H !" < 0 ia> 

120 FOR Tt.0 TO 39iPRINT"*"| INEXT <13e> 

130 8Y8 STjSYS IN <09l> 

140 POKE 19B,0 <04B> 

150 PRINT"«DOWN,RVSON»A)«RVOFF,SPACE»DURCH 
RASTER-IRQ KEINE SPeiCHER-<(SSPACE»PLA 
TZVERSCHWENDUNB" <103> 

160 GDSUB 230 <1607 

170 PRINT''«RVSaN»B) <(RVOFF,SPACe»BETRIEBSSY 

STEP! KOPIEREN UNNOETIG ! ! '' <230> 

180 GOSUB 230 <1B0> 

190 PRINT’'«RVS0N»C>«RVDFF,SPACE»l-3 STATUS 

ZEILEN, «2SPACEBFLACKERFREI'' <011> 

200 GOSUB 230 <200> 

210 IF PEEK<19S)=0 THEN 130 <120> 

220 SYS OFiEND <155> 

230 FOR T=0 TO 100:NEXTsRETURN <12a> 


Listing 5. Demonstration der Fähigkeiten von Listing 4 


3. Durch »SYS 49152« wird das Programm gestartet. Ab 
jetzt wird bei jedem Durchlauf des Elektronenstrahls der 
Inhalt des Zwischenspeichers in den Bildschirm- und 
Farbspeicher geschrieben. 

4. Mit Hilfe von »SYS 49152+3« können Sie das Programm 

■ ausschalten. 

Das Demoprogramm in Listing 5 zeigt die Möglichkeiten 
von »Kopfzeilen«. (Bernd Schulier/ef) 

4. Der Mülleimer 


Dieses Programm (Listing 6) wird mit dem Befehl LOAD 
»MUELLEIMER«,8 geladen und mit RUN gestartet. Sie 
können nun etwas programmieren, kurze Basic-Program- 
me laden, die den Bereich ab $0000 nicht belegen oder 
sonst etwas Sinnvolles anstellen. Malen Sie doch einmal ei¬ 
ne schöne Blockgrafik auf dem Bildschirm! Nach etwa ein¬ 
einhalb Minuten passierfs dann: Auf dem Bildschirm er¬ 
scheint ein Mülleimer, der nach weiteren drei Sekunden ak¬ 
tiv wird und allmählich den gesamten Bildschirm »auf¬ 
saugt«. Kurz danach verschwindet er wieder, der C 64 hat 
sich erholt- 

Sie ahnen es sicher schon: In Abständen von etwa weite¬ 
ren zwei Minuten 50 Sekunden wiederholt sich diese Pro¬ 
zedur. 

Nun noch einige technische Hinweise zum Programm: 
Es läuft im Interrupt, um gleichzeitig mit anderen Routinen 
aktiv sein zu können. Da es den IRQ-Vektor jedoch unter 
Berücksichtigung des alten Wertes verändert, kann es zu¬ 
sammen mit anderen IRQ-Programmen ablaufen, die nicht 
den $C-Bereich »berühren«. Dazu aktivieren Sie zuerst das 
andere Programm, danach den Mülleimer. 

Das Programm »Mülleimer« darf nicht mit (RESTORE) 
unterbrochen werden, während der Mülleimer »saugt«, da 
sonst einige für das Betriebssystem wichtige Zellen nicht 
rekonstruiert werden (u.a. Basic-Pointer 43 bis 46), Der 
Mülleimer ist, das liegt in der Natur der Sache, nur im Lores- 
Modus des C 64 lauffähig, berücksichtigt aber die Start¬ 
adresse des Bildschirms (normal 1024). 

Das Programm arbeitet mit Sprites. Die Spritedaten lie- 
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Name 

muelXelmer , 



0801 0a84 

08d9 

80 

eO 

dO 

4e 

a9 

2c 

8d 

7f 

e8 

09ol 

a5 

2c 

85 

d2 

a5 

26 

85 

f3 

fa 











08el 

cO 

a9 

28 

8d 

81 

oO 

a9 

00 

f6 

09c9 

a5 

2e 

85 

f4 

ca 

10 

c6 

a9 

21 

0601 

17 

08 

02 

07 

9e 

20 

32 

30 

c2 

08e9 

8d 

82 

cO 

ce 

80 

cO 

dO 

3a 

87 

09dl 

20 

c8 

91 

dl 

c8 

91 

dl 

60 

15 

0809 

37 

33 

2ö 

4d 

55 

45 

4c 

4c 

d8 

08fl 

oe 

81 

cO 

dO 

35 

ee 

82 

oO 

20 

09d9 

a9 

00 

85 

dl 

ad 

88 

02 

85 

50 

0811 

45 

49 

4d 

45 

52 

00 

00 

00 

lo 

08f9 

a9 

01 

8d 

15 

dO 

a9 

00 

8d 

9e 

09el 

d2 

a2 

18 

20 

24 

ea 

aO 

14 

53 

0819 

20 

fl 

b7 

a9 

50 

a2 

08 

85 

9a 

0901 

17 

dO 

ed 

Id 

dO 

8d 

lo 

dO 

13 

09e9 

bl 

dl 

c9 

20 

dO 

13 

88 

bl 

24 

0821 

f7 

86 

f8 

aO 

00 

89 

00 

b2 

40 

0909 

6d 

10 

dO 

a9 

b5 

8d 

00 

dO 

71 

09fl 

dl 

c8 

91 

dl 

88 

bl 

f3 

c8 

3o 

0829 

oO 

85 

f9 

86 

fa 

a5 

fa 

c9 

57 

0911 

a9 

e5 

8d 

01 

dO 

a9 

01 

8d 

aa 

09f9 

91 

f3 

88 

dO 

fl 

a9 

20 

91 

dO 

0831 

c2 

dO 

09 

a5 

f9 

c9 

35 

dO 

b7 

0919 

27 

dO 

a2 

3f 

bd 

f5 

Ol 

9d 

07 

OaOl 

dl 

aO 

15 

bl 

dl 

o9 

20 

dO 

2b 

0839 

03 

4c 

00 

oO 

bl 

f7 

91 

f9 

8f 

0921 

oO 

02 

ca 

10 

f7 

a9 

Ob 

6d 

ab 

0a09 

15 

c8 

bl 

dl 

88 

91 

dl 

cB 

17 

0841 

e6 

f7 

dO 

02 

e6 

f6 

e6 

f9 

5d 

0929 

f8 

07 

60 

ad 

7f 

cO 

30 

46 

be 

Oall 

bl 

f3 

83 

91 

f3 

c8 

oO 

27 

e7 

0849 

dO 

02 

e6 

fa 

18 

90 

de 

78 

a6 

0931 

a5 

dl 

48 

a5 

d2 

48 

a5 

f3 

73 

0al9 

90 

ef 

a9 

20 

91 

dl 

a5 

dl 

fl 

0851 

ad 

15 

03 

o9 

oO 

fO 

28 

8d 

d2 

0939 

48 

a5 

f4 

48 

a5 

2b 

48 

a5 

ba 

0a21 

18 

69 

28 

85 

dl 

a5 

d2 

69 

11 

0859 

3a 

cO 

ad 

14 

03 

8d 

39 

oO 

e4 

0941 

2c 

48 

a5 

2d 

48 

a5 

2e 

48 

9b 

0a29 

00 

85 

d2 

ca 

10 

b5 

60 

ad 

85 

0861 

a9 

32 

aO 

cO 

8d 

14 

03 

8c 

02 

0949 

ce 

7f 

cO 

20 

28 

Ol 

20 

89 

2f 

0b31 

7d 

oO 

o9 

20 

dO 

08 

ad 

7e 

86 

0869 

15 

03 

a9 

14 

8d 

61 

oO 

a9 

28 

0951 

Ol 

20 

eO 

Ol 

ad 

7f 

oO 

10 

8d 

0a39 

cO 

o9 

20 

dO 

01 

60 

a9 

2o 

12 

0871 

00 

6d 

82 

cO 

38 

6e 

7f 

oO 

67 

0959 

ef 

68 

85 

2e 

68 

85 

2d 

68 

de 

0a4l 

8d 

7f 

cO 

60 

03 

ff 

80 

03 

02 

0879 

a9 

3b 

aO 

cO 

20 

le 

ab 

58 

52 

0961 

85 

2c 

68 

85 

2b 

68 

85 

f4 

bd 

0a49 

01 

80 

3f 

ff 

f8 

60 

00 

Oo 

05 

0851 

60 

20 

83 

cO 

20 

de 

oO 

4c 

6f 

0969 

68 

85 

f3 

68 

85 

d2 

68 

85 

39 

0a51 

3f 

ff 

f8 

08 

00 

20 

08 

00 

fO 

0889 

00 

00 

Od 

57 

48 

41 

54 

45 

22 

0971 

dl 

b9 

00 

Bd 

15 

dO 

60 

a9 

75 

0a59 

20 

Ob 

6d 

aO 

09 

24 

aO 

09 

b5 

0891 

56 

45 

52 

20 

59 

4f 

55 

27 

d6 

0979 

d4 

85 

dl 

ad 

88 

02 

18 

69 

06 

0a61 

24 

aO 

09 

24 

aO 

09 

24 

aO 

cO 

0899 

4o 

4c 

20 

53 

45 

45 

3a 

20 

26 

0981 

03 

85 

d2 

20 

24 

ea 

aO 

00 

Ic 

0a69 

09 

24 

aO 

09 

24 

aO 

09 

24 

81 

08al 

44 

4f 

4e 

27 

54 

20 

50 

41 

Of 

0989 

bl 

dl 

8d 

7d 

oO 

ce 

bl 

dl 

f3 

0a71 

aO 

09 

24 

aO 

09 

24 

aO 

09 

f9 

08a9 

: 4e 

49 

43 

2e 

20 

45 

56 

45 

43 

0991 

8d 

7e 

cO 

a2 

17 

a5 

dl 

38 

38 

0a79 

24 

aO 

Ob 

6d 

aO 

08 

00 

20 

e8 

08til 

: 52 

59 

2d 

54 

48 

49 

4e 

47 

Ic 

0999 

e9 

28 

85 

2b 

a5 

d2 

e9 

00 

f6 

0a81 

Of 

ff 

eO 

e6 

fo 

60 

a5 

fb 

06 

08b9 

: 20 

49 

53 

20 

55 

4e 

44 

45 

ba 

09al 

85 

2o 

a5 

f3 

38 

e9 

28 

85 

a3 











08cl 

: 52 

20 

43 

4f 

4a 

54 

52 

4f 

4e 

09a9 

2d 

a5 

f4 

e9 

00 

85 

2e 

aO 

49 

Listing 6. 









08c9 

: 4c 

2e 

11 

00 

00 

00 

00 

00 

71 

09bl 

01 

bl 

2b 

91 

dl 

bl 

2d 

91 

Oa 

Viel Vergnügen mit 

dem 




08dl 

; 00 

00 

ad 

82 

cO 

fO 

14 

oe 

Oe 

09b9 

• f3 

88 

10 

f5 

a5 

2b 

85 

dl 

20 

gierigen Mülleimer 







gen direkt hinter dem Maschinenprogramm im Speicher - Speicherbereich $C000 bis $C200 nicht belegt, 
und werden jedesmal nach 704 kopiert. Falls der Scherzar- - Speicherbereich 704 bis 767 nicht belegt, 
tikel also unter einem anderen Programm iaufen soll, muß - faiis iRQ-Vektor verändert wird, muß der Scherzartikel zu- 
dieses folgenden Bedingungen genügen; . . ,_ jetzt aktiviert werden. 

- mögiichst keine Sprites, ' ' ’ ^^Wir^'iischen Ihnen viel Spaß mit dem Programm, das 

- kein weißer Bildschirm (Mülleimer), als kleiner Gag sicher jedem gefallen wird. 

-VIC-Bank = 0, (Nikolaus Heusier/ef) 


5. Der Sprite-Dreher 


Bei dem Maschinenprogramm »Drehe Sprites» (Listing 7) 
für den C 64 handelt es sich um ein Utility, das es gestattet, 
ein an beliebiger Stelle im Speicher liegendes Sprite um ei¬ 
nen beliebigen Winkel entgegen dem Uhrzeigersinn zu 
drehen und dann an einer ebenfalls beliebigen Stelle im 
Speicher wieder abzulegen. Die Erstellung von Animatio¬ 
nen, zum Beispiel für Spiele, die sich drehende Sprites ver¬ 
wenden, wird durch dieses Hilfsprogramm stark verein¬ 
facht, da außer der Erstellung des Quelle-Sprites und klei¬ 
nen Schönheitskorrekturen bei den Sprite-Sequenzen kei¬ 
nerlei Arbeit mehr geleistet werden muß. Das Maschinen¬ 
programm dreht ein Sprite um einen beliebigen Winkel. Der 


Mittelpunkt der Drehung liegt (bei einem in der linken obe¬ 
ren Ecke liegenden Ursprung) bei P (12/10) innerhalb des 
Sprites. Die Syntax zum Aufruf des Programms lautet; 

SYS 49358, Adresse des Quellsprites, 

Adresse des Ziel-Sprites, 

Winkel im Bogenmaß 

Das Programm liegt im Bereich von $C000/$C203. Wäh¬ 
rend des Drehens wird auch noch der Bereich von 
$C204/$C2FE benötigt. Natürlich kann das Programm 
auch von Maschinensprache aus aufgerufen werden. Die 
Adresse des Quellsprites steht in SFB/$FC, die des Zielspri¬ 
tes in $FD/$FE, der Winkel steht im FAC (Fließkomma-Ak¬ 
kumulator). Nachdem diese Werte gesetzt sind, kann die 
Routine mittels JSR $COEE aufgerufen werden. 

(Christian Pdemeyer/ef) 


Name 

drehe aprites 


cOOO c208 

o058 

a2 

bb 

20 

6b 

e2 

a2 

f9 

aO 

ba 

oOcO 

08 aa ac 42 03 60 

80 

40 

46 











c060 

c2 

20 

d4 

bb 

20 

Oc 

bc 

a9 

88 

o0c8 

20 10 OS 04 02 01 

20 

fd 

18 

cOOO 

a2 

f9 

aO 

c2 

20 

d4 

bb 

20 

f7 

o068 

Oo 

20 

3o 

bc 

20 

30 

ba 

20 

da 

cOdO 

ae 20 8a ad 20 f7 

b7 

64 

90 

o008 

64 

e2 

a2 

f4 

aO 

c2 

20 

d4 

6f 

c070 

b4 

bf 

a9 

00 

85 

02 

a9 

7e 

76 

c 0 d 8 

fb 85 fo 20 fd ae 

20 

ea 

c4 

cOlO 

bb 

20 

Oc 

bc 

a9 

Oo 

20 

3o 

6a 

o078 

a2 

c2 

Sd 

40 

03 

Se 

41 

03 

96 

cOeO 

ad 20 f7 b7 84 fd 

85 

fa 

de 

o018 

bc 

20 

30 

ba 

20 

b4 

bf 

a9 

42 

o080 

ae 

40 

03 

ac 

41 

03 

20 

d4 

fb 

c0e8 

20 fd ae 20 6a ad 

20 

00 

4d 

c020 

00 

85 

02 

a9 

04 

a2 

c2 

ed 

14 

c086 

bb 

18 

ad 

40 

03 

69 

05 

8d 

6d 

cOfO 

oO a9 00 aO 3f 91 

fd 

88 

22 

c028 

40 

03 

ee 

4l 

03 

ae 

40 

03 

62 

o090 

40 

03 

90 

03 

ee 

41 

03 

a9 

2f 

c0f8 

10 fb 8d 43 03 8d 

44 

03 

85 

c030 

ac 

41 

03 

20 

d4 

bb 

18 

ad 

29 

o096 

f9 

aO 

c2 

20 

67 

be 

e6 

02 

72 

clOO 

a9 16 8 d 47 03 ae 

43 

03 

b9 

o038 

40 

03 

69 

05 

8d 

40 

03 

90 

fd 

cOaO 

a5 

02 

c9 

18 

dO 

da 

60 

98 

52 






0040 

03 

ee 

41 

03 

a9 

f4 

aO 

C2 

05 

C0a8 

8d 

42 

03 

Oa 

18 

63 

42 

03 

54 

Listing 7. Damit drehen 




o048 

20 

67 

b8 

e6 

02 

a5 

02 

c9 

10 

cObO 

ed 

42 

03 

3a 

38 

e9 

08 

ee 

41 

Sie Sprites in jedem beliebigen 


c050 

18 

dO 

da 

a9 

f9 

aO 

c2 

20 

ac 

cObS 

42 

03 

bO 

f9 

oe 

42 

03 

69 

o5 

Winkel 
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ol08 

ao 

44 

03 

20 

a7 

cO 

bl 

fb 

da 

cl68 

20 

f7 

b7 

cO 

18 

bO 

6d 

8c 

60 

oloB 

13 

Bc 

46 03 

ee 

45 

03 

ac 

Be 

Clio 

3d 

c6 

oO 

c9 

00 

dO 

03 

4c 

45 

cl70 

45 

03 

89 

o2 

8d 

41 

03 

ad 

44 

oldO 

46 

03 

20 e7 

oO 

bl 

fd 

Id 

61 

cll8 

de 

cl 

a9 

o2 

8d 

4l 

03 

ad 

e2 

cl78 

47 

03 

Oa 

Oa 

18 

6d 

47 

03 

15 

cld8 

c6 

cO 

91 fd 

ee 

43 

03 

ad 

93 

cl20 

47 

03 

Oa 

Oa 

18 

6d 

47 

03 

bd 

cl80 

69 

04 

8d 

40 

03 

90 

03 

ee 

f5 

oleO 

43 

03 

c9 18 

fO 

03 

4o 

05 

7d 

Cl28 

69 

7c 

8d 

40 

03 

90 

03 

ee 

d9 

. Cl88 

41 

03 

ad 

40 

03 

ac 

41 

03 

5f 

cle8 

cl 

a9 

00 8d 

43 

03 

ee 

44 

cO 

cl30 

4l 

03 

ad 

40 

03 

ac 

41 

03 

07 

el90 

20 

a2 

bb 

a9 

02 

8d 

4l 

03 

c9 

clfO 

03 

oe 

47 03 

ad 

44 

03 

c9 

29 

0138 

20 

a2 

bb 

a9 

c2 

ed 

4l 

03 

71 

cl98 

ad 

43 

03 

Oa 

Oa 

18 

6d 

43 

87 

clf8 

15 

fO 

03 4o 

05 

Ol 

60 

84 

b9 

ol40 

ad 

43 

03 

Oa 

Oa 

18 

6d 

43 

2f 

claO 

03 

69 

7o 

ed 

40 

03 

90 

03 

8d 

o200 

20 

00 

00 00 

00 

00 

00 

00 

21 

cl48 

03 

69 

04 

Sd 

40 

03 

90 

03 

17 

cla6 

ee 

4l 

03 

ad 

40 

03 

ac 

4l 

ff 










ol50 

ee 

4l 

03 

ad 

40 

03 

ac 

4l 

a7 

olbO 

03 

20 

67 

b8 

a9 

ff 

aO 

cl 

55 










0158 

03 

20 

50 

b8 

a9 

Oo 

20 

7e 

Of 

clbS 

20 

50 

b8 

20 

49 

b8 

a5 

66 

fO 










cl60 

bd 

20 

49 

b8 

a5 

66 

30 

74 

ca 

olcO 

30 

la 

20 

f7 

b7 

cO 

15 

bO 

3c 

LIstIng 7. 

(Schluß) 







6. S<reenmanager 


Es existiert bereits eine große Zahi von Programmen, die 
den Biidschirm des C S4 in verschiedenfarbige Bereiche 
einleiien können. Sie haben jedoch meistens den Nachteii. 
daß Lage, Größe und Anzahi der Farbunterteiiungen nicht 
genügend variabei sind. Außerdem wird meistens der ge¬ 
samte Bildschirm aufgeteitt. Es ist aiso nicht möglich, zum 
Beispiel nur eine Schriftzeile farbig zu unterlegen. Aus die¬ 
sem Mangel heraus entstand das Programm »Screenma- 
nager« (Listing 10). Es ist eine kurze Maschinenroutine, die 
im Interrupt des C 64 läuft. Auf der Diskette wird nur ein 
Block benötigt, man kann sie ohne viel Aufwand von einem 
Hauptprogramm aus nachladen (mit »,8,1«), Die Routine 
versetzt auch den Basic-Programmierer ohne Assembler- 
Kenntnisse in die Lage, verschiedenfarbige Bereiche belie¬ 
biger Größe und Anzahi zusätzlich zum normalen Bild¬ 
schirmhintergrund einzurichten. Definiert werden die Zo¬ 
nen durch eine Liste, die ab Adresse 49300 im Spefehfei^Ö-^ 
gelegt wird, und anschließendem Aufruf des Programms 
mit einem SYS-Befehl. Die Definition einer solchen Liste 
sieht folgendermaßen aus: Als erstes wird die Rasterzeile-1 
angegeben, in der die erste Zone beginnen soll (sinnvoll 
sind nurZahlen von 49 bis ca. 250, da außerhalb dieses Be¬ 
reichs der Bildschirmrahmen liegt). Ab dieser Rasterzeile 
werden die verschiedenen Bereiche angelegt. Dazu wird 
nun die Farbe (0 bis 15) des ersten Bereichs angegeben, 
anschließend seine »Breite« (wieder in Rasterzeilen, belie¬ 
big von 1 biszirka250, wenn der gesamte Bildschirm umge¬ 
färbt werden soll). Nach diesem Schema können Sie jetzt 
beliebig viele Bereiche anhängen: Farbe des Bereichs, 
Breite nächste Farbe und so weiter. Zum Beenden dieser 
Folge wird an die Liste eine beliebige Zahl von 128 bis 255 
angehängt. Dahinter können Sie jetzt den Beginn einer 
neuen Farbzone nach dem gleichen Muster durch Angabe 
der neuen Startzeile, Farbe, Breite, und so weiter kenn¬ 
zeichnen oder die Liste mit einer Null beenden. Zur Ver¬ 
deutlichung ein Beispiel: Es sollen ab Zeile 100 und 150 
zwei mehrteilige Farbzonen definiert werden. Im Speicher 
sieht das dann so aus: 


49300 

99 

(Beginn der 1. Zone-1) 

49301 

2 

0. Farbe - rot) 

49302 

10 

(10 Zellen breit) 

49303 

5 

(2. Farbe • grün) 

49304 

10 

00 Zeilen breit) 

49305 

6 

(3. Farbe > blau) 

49306 

8 

(8 Zellen breit) 

49307 

255 

(Endekennung der 1. Zone) 

49308 

149 

(Beginn der 2. Zone-1) 

49309 

7 

(1. Farbe > gelb) 

(und so weiter, wie oben) 

49314 

5 

(letzter Bereich 5 Zellen breit) 

49315 

255 

(Endekennung der Zone) 

49316 

0 

(Ende der Liste) 


Nach dem Start mit SYS 49152 läuft die Routine im 
Raster-IRQ im Hintergrund eines beliebigen Basic-Pro- 
gramms(es ist auch ein Aufruf von Assembler aus möglich, 
solange keine Interrupts verwendet werden). Die normale 


Hintergrundfarbe müssen Siejetztstatt in Adresse 53281 in 
49266 ablegen! Vom Programm wird in der Zeropage die 
Adresse $FB (251) belegt. Das Hauptprogramm wird um so 
mehr gebremst, je größer die definierten Zonen sind. Durch 

» 


m 

.}«»• . flcreeuDiiiager - 


40 

-;•«* 9.+13.11-87 “by 

»•« 

41 

k.kBfthler 

*99 


•i«** alrvlitser 

*** 

43 

1000 36 

9*9 

■50 


60 

“J 


70 

-.ba «cOOO 


90 



90 

-J 


100 

•.eg vi-$dOOO 


1'^ • 



102 

“-eq rlln&*vl*$l2 


103 

-.•q lrqp«q*vl**l9 


104 

-.eq irqMk«vi-H91a 


105 

-.•q baäk«vl4$21 


106 

• .eq icr«McOd 


107 

ayaLrq>3e&31 


lOS 

‘.«q imioutaSeafii 


190 

-.»q iJiivac*|031A 


ssp 



S30 

-5 


340 

rQUtina apachalten i*** 

250 

-{ 


260 

-•'tart Id« #100 ' 

ipoiacar auf taballanatart 

270 

• ata 


390 

-i 


290 

irq lnltlallalar*D 


300 



M 

• asl 

aparran 

320 

- liu mab 

ipaataPMUa&oaä: «0 

330 

« «nd #t7f 


340 

- ata 


350 

Ida #$7f 

ioU-lrqa varcinoara 

360 

Ur 


y?o 

• IdB #101 

iPMtatlrqa froigaban 

JBO 

• Bta IrqaiBic 


390 

M» #Ulr9) 

I tuf »Igtnf reuilnt 

400 

• tlä IrqvM 


410 

- 16t#) dm) 


420 

• »U irqvaol 


430 

•{ 


440 

• Jar raadtab 

Il.<entn6t|lnn tuiltatn 

450 

- ita rllna 

)•auiloaiaade »alla 

460 

- oll 

]Irqa fralgaban 

470 

- Pta 

jruaekaprung Ina baai« 

460 



500 

foutUi» «BtohtlMn ••• 

510 

•i 


520 

•off s«i 

jlrqa aperren 

530 

Idi «600 

;nBter>lrq sua 

540 

- at« irqcMik 


550 

- Ida #283 

:ola>lrqa «rmoaelichan 

960 

• ata lor 


570 

• Ida #{(ay*3p^} iirq*vaktor auf ooraalwart 

560 

• 8t« Irqvao 


590 

Ido #) Ityslm) 

600 

• ata Lrqvec«! 


610 

cli 

iiroa fralffaben 

Listing 8. Der dokumentierte Quellcode 
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TIPS&TRICKS 


Verändern der Liste während des Programm-Ablaufs las¬ 
sen sich vielfältige Effekte erzielen, wie Blinken, Farbscrol- 
ling, Bewegungseffekte oder ähnliches. Ich habe ein klei¬ 
nes Demoprogramm (Listing 9) geschrieben, das die Mög¬ 
lichkeiten der Routine demonstrieren soll. Einige der be¬ 
schriebenen Effekte sind dort enthalten, und mit etwas Ge¬ 
schick läßt sich sicher noch einiges aus dem Programm 
herauskitzeln. Für die Assembler-Freaks gibt es noch den 
dokumentierten Quellcode (Listing 8). Zum Schluß noch ei¬ 
nige Dinge, die Sie beachten sollten: Die Liste kann im Prin¬ 
zip beliebig angelegt werden. Die Farbzonen dürfen sich je¬ 
doch nicht überschneiden und müssen in der Reihenfolge 
im Speicher stehen, wie sie auch auf dem Bildschirm er¬ 
scheinen sollen. Also nicht die unterste Zone zuerst in der 
Liste. Die Zahlen in der Liste werden vom Programm nicht 
auf Richtigkeit überprüft, das muß von Ihrem Steuerpro¬ 
gramm erledigt werden. Außerdem darf die Länge der Liste 
256 Zahlen nicht überschreiten. Da der VIC in jeder achten 
Rasterzeile wegen des Zeichenaufbaus die Rasterinter¬ 
rupts verzögert, sollte ein Farbwechsel in Rasterzeilen, die 
der Formelz » 51 -i- 8* xentsprechen, vermieden werden, 

(K, Kähler/ef) 


SM 


rU 

;rMaiäi£iniii£ ijiB baalQ 

SJO 




S40 

-;**• llAUptMuUa« **■ 


SM 




660 

-Irq 

Ida *K 1 

: U>q-reque«$ lAeaebaa 

S'TO 

- 

ata Irqraq 


700 




710 

. 

J«T readtab 

saonenfarbe 1 aualeaan 

750 

-i 



730 

•i haup69(Aleire 

1 

735 

-j 



740 

-nxtune 

tay 

tnscb y wttea 1 

750 

- 

läx tabßfft 

;t^alX«nHert lesen 1^ 

761 

- 

IM tabpDt 

;(Bua zelttanfel 

752 

- 

Ida table,x 

jnlclit als np) 

760 


eie 

icarry loeschaa 

770 

- 

ade rlin» 

;6:FaJct. seile * bereldbabceite 

760 

- 

Idx rlSjte 

iX zaUaavcchaei abwarten 

762 

•Halt 

cpx rlin« 


7B4 

- 

baq «adt 


790 

- 

sty haoli 

iblldaoblrftfarbe veahaeln 

600 

-utaad, 

eap rlin« 

{Warten» bis eodteile (la a} erreicht vlrJ 

no 

. 

bae vtend 


620 

-j 



830 

naachster baralch/Mda 1 

840 

-} 



850 

- 

Jar readtab 

snatohatan wert Itolan 

860 

. 

bpi nxtaana 

{Wenn poBltlv,e) lutiwna 

seo 




885 

-i sonanacda/llä unend« 


690 

-j 



900 

-attaitd 

Idx rltna 

laonat l aailenvMhael abvarten 

902 

•«aU2 

eptt rllae 


904 

. 

baq voix2 


910 



{bUdaoh Im färbe turuecbachrslhan (Saaelumy» 

920 

- 

ata baelt 

}fpelbh«T ruwr ftlAtersrundfarb«) 

925 

•t 



OSO 

. 

Jar raadtab 

;nao6hat4n aortanbosian aualaaen 

940 

* 

baq agaln 

«wenn enda-Kennuns» s)agelti 

945 

•f 



950 

- 

ata rlioe 

isohat aualeeaeada a«llet*a 

960 

- 

Jap Irqout 

{irq beerKlen 

970 

-i 



960 

•agaln 

ata tabpnt 

itaballenaeUariaO 

990 

. 

Jar rtadtab 

{eratfii lODenbefinn auajeatn 

lOOO 


ata rllM 

; aualoeaecvde aelUi«a 

1010 

. 

Jifip ayalrq 

{cyatam-lrq auaruaüran 

1020 

-1 



1030 

•{ up tabaUwivan laaah 

1040 

• 1 



1050 

•Teadtäb 

Idx tabpnt 

{tabpnt laeen 

1060 

- 

Ina tabpnt 

{tsbellenMiger erboehen 

1070 

- 

Ida tabie^x 

( a i'tabellenstarutabpnt 

1060 

- 

rt« 

jruecJcepruaf 

1160 

.j 



1170 

-j 



1160 

-{*«■ Mrtentaballe ab hier »*• 

U90 




1200 


.t>y 99.2,3.6,5 

.2,3.128,0 


Gf 


■Screenmanagera» 


1 IF A=0 THEN A=l:LaAD'’SCRNMANAeER.QBJ",B, 


5 REM 


<252> 

10 

REM 

*«* 

SCREENMANABER - DEMO 

»•* 

<02Z> 

15 

REM 


WRITTEN 13.11.87 BY 

«*« 

<140> 

16 

REM 

*«•» 

K.KAEHLER 

*»* 

<038> 

17 

REM 

**« 

SKALITZER STR.134A 

*** 

<255> 

18 

REM 

*•* 

1000 BERLIN 36 

«•« 

<016> 

20 

REM 

««»«*«*»**•**»**«*•**«**»«** 

<011> 

25 

: 




<001> 

30 

REM 

— 

VARIABLEN - 


<136> 

35 

» 




<011> 

40 

TA=49300i REM TABELLENBTART 


<165> 

50 

ANM9lS2t REM ANSCHALTEN 


<073> 

60 

AUS: 

=49193tREM AUSSCHALTEN 


<07l> 

65 

8 




<04l> 

66 

PC-: 

l70aFG-l8H»l 


<161> 

70 

FCR 

1*0 

TO 8: READ COCDiNEXT 


<11Z> 

71 

8 




<047> 

72 

REM 

-- 

ZONENDATEN EINLESEN - 

<207> 

73 

8 




<049> 

74 

XX-TA 



<I14> 

75 

READ OiIF Q>-1 THEN POKE XX,B8XX-XX+l:6 



OTÜ 

75 



<097> 

76 

8 




<052> 

B0 

REM 

— 

SCREEN AUFBAUEN - 


<234> 

90 

: 




<066> 


100 POKE 53290,0SPQKE 492iA,0!PRINT"<CLR,2 

DOWN,BLACK!" <109> 

110 PRINT TABCIBI "ü, SCREENMANASER SS" <I20> 

115 PRINT: PRINT"ümTroüüübQDQDüoooüüädöQo6ü 

120 PRINT"<RVSDN,6SPACE!THE ULTIMATE SCREE 

N-UTILITY!{6SPACE,RVOFF}"; <225> 

125 PRINT" lim nAAJmAfUinAAAAAA/U^^ 

130 PRlNTsPRINT TABl12)"PROGRAM AND DEMO" <173> 
140 PRINTsPRlNT TAB(6)"WRITTEN IN 1987 BY 

K.KAEHLER" <056> 

145 PRINTsPRlNT:PRINT"<RVSaN,40SPACE >‘’5 <097> 

ISO PRINT"<14SPACE!C64 DEFEATEDI14SPACE>"; <112> 
;^^^TNT'’il3SPACE>AMIGA-C0PPERI I {ISSPACE! 

^ <056> 

165 PRINT"<40SPACE>"5 <165> 

170 PRINT;PRINTsPRlNT"tRED.RVSON,1BSPACE}> 

> SCREENMANABER «TllSPACE!" <15B> 

240 : <216> 

250 REM - EINSCHALTEN —- <I05> 

260 ; <23B> 

270 SYS AN <120> 

2Se : <002! 

300 REM-ANIMATION- <122> 

310 : <032> 

320 REM BLINKENDE BALKEN (#2 «6) <100! 

325 1 <047> 

330 FL=FL+llIF FL>8 THEN FL=0 <043> 

340 PQKE 49311,COIFL) <133> 

350 POKE 49357,CO(FL) <167> 

360 1 <B02> 

500 REM BEWEGLICHER BALKEN (#5) <163> 

310 s <232> 

520 P0=«P0+FS <248> 

530 IF PO<170 OR P0>18B THEN FB—FS <00b> 

540 POKE 49342,PO <071> 

S52 8 <B1B> 

560 REM WANDERNDER FARBBALKEN(«4) <170> 

570 I <03a> 

575 POKE 49325+H»2,6 <102> 

500 H=H+l8lF H>7 THEN H»1lBC=RND(0)*16 <103> 

590 POKE 49325+H*2,RC <201> 

799 GOTO 330 <029> 

800 t <119> 

B01 REM-FARBDATEN- <004> 

S02 : <016> 

805 DATA 0,11,12,15,1,15,12,11,0 <243! 

1000 : <214> 

1001 REM-ZONENDATAS - <079> 

1002 s <216> 

1030 DATA 48,11,4,12,3,15,3,1,3,128 <135> 

1031 8 <247> 

1032 DATA 70,0,12,128 <121> 

1033 8 <249> 

1034 DATA 95,6,1,14,2,1,1,14,2,6,3,128 <080! 

1035 t <251> 

Listing 9. Demo der Fähigkeiten des »Screenmanagei^* 
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lese 

DflTfl 

12S 

122,6,5,6,ä,6,5,e,S,e,S,ä,S,e,S, 

<2Z6> 

1041 ( 

1050 DATA 235,1,3,15,3,12,3,11,3,128 

<00i> 

<a77> 

1B37 

1038 

1039 

DflTfi 

177,11,2,13,2,1,1,12,2,11,2,123 

<253> 

<077> 

<253> 

2000 DATA 0,-1 

<032> 

1040 

DATA 

214,a,3,0,7,£>,3,128 

<2S2> 

Listing 9. (Schluß) 



Name 

ecmnanager 

ob. 


oOOO c094 

o030 

81 

8d 

Od 

de 

a9 

31 

8d 

14 

d9 

e070 

fb 

a9 aa 8d 

21 

dO 

20 

8c 

ce 











c038 

03 

a9 

ea 

ed 

15 

03 

58 

60 

08 

c078 

oO 

fO 06 8d 

12 

dO 

4o 

81 

bf 

cOOO 

a9 

00 

85 

fb 

78 

ad 

11 

dO 

65 

o040 

a9 

01 

ed 

19 

dO 

20 

8c 

oO 

b2 

c080 

ea 

85 fb 20 

8c 

00 

ed 

12 

59 

c008 

29 

7f 

8d 

11 

dO 

a9 

7f 

8d 

ea 

c048 

a8 

a6 

fb 

e6 

fb 

bd 

94 

cO 

aO 

c08S 

dO 

4c 31 ea 

a6 

fb 

e6 

fb 

06 

oOlO 

Od 

de 

a9 

01 

8d 

le 

dO 

a9 

56 

c050 

18 

6d 

12 

dO 

ae 

12 

dO 

eo 

56 

c090 

bd 

94 cO 60 

ee 

4l 

03 

a9 

2c 

o018 

40 

6d 

14 

03 

a9 

cO 

ed 

15 

85 

o058 

12 

dO 

fO 

fb 

8o 

21 

dO 

cd 

3f 









c020 

03 

20 

ec 

cO 

8d 

12 

dO 

58 

oc 

o060 

12 

dO 

dO 

fb 

20 

8c 

cO 

10 

17 

Listing 10 

»Screenmanager« 



c028 

60 

78 

a9 

00 

Sd 

la 

dO 

a9 

6f 

c068 

df 

ae 

12 

dO 

ec 

12 

dO 

fO 

Ol 

verwaltet 

Rasterzeilen 






7. Zeppo - ein Unterarogramm 
für Druckerrans 


Das Programm »Zeppo« (Listing 11) gestattet, einen Textauf 
dem Drucker auszugeben - und zwar mit dem im Augen- 
bück auf dem Biidschirm sichtbaren Zeichensatz, Dazu ste¬ 
hen vier Druckdichten zur Verfügung. Zeppo wurde für 
Epson-kompatibie Drucker geschrieben. Es sind foigende 
Schritte erforderiich: 

- Nach dem Abtippen mit dem MSE ist Zeppo absoiut zu ia- 
den (LOAD "ZEPPO",8,1). Ein anschließendes NEW 
< RETURN > sorgt dafür, daß die Basic-Zeiger zurückge¬ 
setzt werden. 

- ist der gewünschte Zeichensatz aktiviert, muß zum 
Drucken foigende Syntax eingehaiten werden: 

SYS 50600,x,"string"<RETURN> 

Dabei entspricht »x« der Druckdichte. Es sind Zahien von 
eins bis vier möglich. Statt »string« lassen sich auch String¬ 
variablen (z. B. a$) oder auch normale Variablen einsetzen. 
Feldvariablen sind nicht erlaubt. Auch sollte der String 
nicht länger als 255 Zeichen sein, da sonst ein Absturz zu 
befürchten ist. Außerdem ist dabei zu beachten, daß wegen 
der Druckerauflösung nur die ersten 60 Zeichen auf dem 
Papier erscheinen. Steuerzeichen wie CRSR-aufwärts-ab- 
wärts, HOME oder CLR sind nicht zugelassen. Wegen der 
Kürze des Programms wurden keinerlei Fehlerabfragen in¬ 
tegriert. Daher stürzt Zeppo bei einer Fehlbedienung sang- 
und klanglos ab. 

Diejenigen, die das Programm an einen anderen Drucker 
anpassen oder in ihren eigenen Programmen verwenden 
wollen, finden den entsprechenden Quellcode in Listing 12 
(Format; Hypra-Ass). (Oliver Möller/ef) 


NBmo : tipps cjta oSdf 












eS40 

69 

aa 

6* 

7f 

06 

a9 

00 

6d 

67 

<s}s8 

20 

fd 


20 

9e 

b7 

06 

6b 

Of 

0640 

66 

e6 

06 

61 

dO 

19 

b9 

Od 

3f 

oibO 

>0 

05 

bO 

04 

eO 

00 

10 

01 

13 

e650 

20 

d2 

ff 

20 

00 

ff 

a9 

Oe 

69 

o»8 

60 

ad 

00 

02 

Sd 


a6 

20 

68 

o658 

20 

03 

ff 

a9 

ff 

Sd 

06 

02 

21 

o5c0 

fd 

aa 

t9 

e7 

Sd 

00 

02 

a2 

02 

e660 

a9 

ff 

ad 

la 

dO 

50 

60 

ad 

5c 

oScS 

00 

■9 

20 

9d 

00 

c7 

oa 

dO 

64 

0668 

00 

o7 

10 

a2 

00 

2i 

aB 

6a 

af 

oSdO 

r« 

20 

66 


20 

aO 

aa 

ad 

3« 

o670 

2a 

aa 

90 

2a 

10 

8t 

2a 

aa 

36 

QjdS 

18 

dO 

6d 

61 

06 

«9 

fO 

6d 

02 

0676 

96 

2a 

a6 

ea 

2a 

18 

69 

ff 

aa 

q5«0 

1« 

dO 

70 

a9 

Oo 

«2 

04 

aO 

dd 

eseo 

85 

6a 

04 

6d 

82 

00 

aO 

00 

b6 


00 

20 

ba 

ff 

•9 

00 

20 

bd 

3d 

0600 

70 

a9 

31 

05 

01 

04 

6c 

bl 

Ib 

aJfO 

ff 

20 

eO 

ff 

»2 

Oe 

20 

09 

ee 

e690 

6d 

3d 

o7 

06 

ro 

03 

b9 

07 

04 

o5f8 

ff 

«9 

» 

20 

d2 

ff 

06 

6b 

35 

o690 

c6 

05 

6a 

05 

6<s 

00 

oD 

06 

Cd 

c6DD 

bd 

oa 

c6 

20 

d2 

ff 

a6 

6b 

79 

c6a0 

dO 

ad 

a4 

6b 

84 

6a 

66 

69 

66 

l^608 

bd 

d2 

06 

20 

d2 

ff 

a6 

6b 

03 

0618 

S9 

37 

05 

01 

56 

a2 

01 

a) 

56 

c610 

bd 

d6 

q6 

20 

d2 

ff 

s9 

3o 

3a 

06bO 

60 

20 

d2 

ff 

c6 

6a 

dO 

f5 

dO 

oSlB 

05 

61 

bd 

da 

ß6 

05 

Sb 

ad 

ba 

c6ba 

a6 

69 

00 

eO 

06 

dO 

07 

c6 

Id 

0630 

OO 

dd 

29 

03 

49 

03 

la 

6a 

9b 

o6ofl 

61 

ce 

66 

06 

4« 

4a 

06 

80 

be 

o628 

6a 

6a 

05 

69 

b2 

dO 

ad 

10 

ad 

0608 

40 

20 

10 

00 

04 

02 

01 

4b 

06 

0630 

80 

29 

Oe 

c9 

04 

fO 

Ob 

a2 

Sb 

c6dQ 

59 


5a 

eO 

«0 

GO 

60 

01 

10 

0638 

da 

09 

06 

fO 

05 

Da 

Oa 

05 

67 

eSda 

03 

03 

07 

01 

02 

02 

04 

00 

7f 


Listing 11. »Zeppo« - ein Programm für Druckerfans 


a 

“.tia 

BCREeN««C70O 



-.EO 

Sr0«S4272 


12 

-.EO 

C0UNT2-C0UNT1+1 


16 

“.EO 

GET8Yr-«e79£ 


10 

-.EO 

CHKC0M«4AEFD 


20 

“.ea 

CHRQOT-40O79 


22 

“.eo 

CHRGET-40073 


24 

-.eo 

ERROH««A437 


26 

-.EQ 

P«INT*#ABIE 


20 

-.ES 

OPENc'aFFCO 


30 

-.eo 

SeiFLS^srPBA 


32 

-.EO 

CHK0UT»*FFC9 


34 

-.£0 

CLRCHaCPFCC 


36 

-.£0 

CL0Se«SFFC3 


39 

-.eo 

P1M6-4FFD2 


40 

-.eo 

DRUCkaftARAO 


42 

EG 

Hane»4e566 


44 

-.eo 

0UEST>4AB45 


46 

-.eo 

SETNArf««FFfiO 


50 




52 

-.EO 

ZM2«a69 <•! 


54 

-.eo 

ZU2»46A 1 1 



NUME««6B; 1 

5IGN»«6C; rlM AR6 


60 

-.ea 

Zl»«60 i‘ 


62 

-? Z€RO“ADReSS6t 


64 




66 

-.eo 

COUNT 1 s«61 s Z Aei4_ER 


70 

— 



90 

-.OB'’Z£PPD.P,|iI“ 


99 

-.9A 

*C5Ae; 536019 


100 

- 

JSR CHkCPfl 

{FOLGT KCnMA? 

119 

- 

JSH BETBVT 

{DRUCKDICHTE HOLEN 

120 

— 

STX NUnE 


130 




140 

- 

CPX *5 

ISICHERHEITS- 

150 

- 

' eca EFtn 


160 

- 

CPX *0 

i A8FRA6E 

170 

- 

e»4E DK 


180 

-ERR 

RTS 


199 

“2 



200 

-OK 

LDA 64S 

tOILDSCHIRM 

210 

- 

STA SDMERKH-I 

tHERKEN 

220 




230 


JSR CMKCDM 

|2.kOinA 

240 

- 

LDA ttXBCREEN) 


250 

- 

STA 64S 

«ERSAT2-Q1LDSCHIRH 

260 

- 

LOK .0 


270 

- 

LOA «32 


>200 

-RrlKT STA SCREEN.X 

IZ.T.LQESCHEN 

290 

- 

OEX 


300 


BNE RMKT 


320 




320 

- 

JSR HOHE 


330 

— 

JSR DRUCK 

p '■ RR 1 NT -eeFEHL AU6FUEHREN 

340 




350 

-T 



360 

- 

LDA «00lA 


36S 

• 

STA RrRM4l 


36S 

- 

LDA ««FO 


369 

- 

STA 4D01A 

{VIC-INTERRUPT SPERREN 

370 

“1 



375 

- 

SEI 

IKEIN INTERRUPT 

380 

- 

LDA «12 

{LOG. FlLENUHMER 

J90 


LDX «4 

SOERAeT-DRUCKER 

400 

- 

LDY ttO 

tSEK.AD 


- 

JSR 5£TFLS 

«SETZEN 

•■1120 

- 

LDA «0 

{KEIN FILENAHE' 


- 

JSR BETNAn 


440 




450 

- 

JSR OPEU 


460 

- 

LDX «12 


4/0 

- 

JSR CHKOUT 

2AUSGABE AUF DATEI 

490 

— • 



490 




600 

- 

LDA «27 

; ESCAPE 


Listing 12. Quellcode »Zeppo« (Format: Hypra-Ass) > 
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SJB 

- 

J5R 

RINB 


S20 

- 

LDX 

NütlE 


530 

- 

LDA 

DATl-l.X 

; f 

540 

- 

JSR 

RINS 

; CODE 

550 

- 

LDX 

MUHE 

t f FUER 

560 

- 

LDA 

DATS-1, X 

: IDRUCKER- 

S70 

- 

JSR 

PINS 

1 1 

S60 

- 

LDX 

MUME 


590 

- 

LDA 

0AT3-1,X 

I 1 lEPSQNJ 

600 

- 

JSR 

PINS 

i>- 

6X0 





620 

-MEAKER 

LDA 

«60 

<60 ZEICHEN 

650 


STA 

COUNT t 


640 





&50 

- 

(.DA 

DAT4‘1,X 


660 

- 

STA 

NU(<E 



- 

LDA 

«DOOO 


6B0 


AND 

*3 


690 

- 

EQR 

«3 


700 

- 

CLC 



710 

- 

ADR 



7ze 

- 

RQR 



730 

- 

RDR 



740 


STA 

2M1 


7SB 





760 

- 

LD« 

tt«oe 

(ZEICHEN-ROM 

770 

- 

LDA 

SDOIB 



- 

AND 

«14 


790 

- 

CMP 

*4 

t NORMAL? 

000 

_ 

bEQ 

NCR 


910 

“J 




820 

- 

LOX 

#«D8 

iZEICHEN-ROn (KLeiNSCHRirr 

830 

- 

CNP 

»6 

tNORMALi KLEINSCHRIFT 7 

840 

- 

BEQ 

NQR 


eso 

-} 




860 


A8L 



870 

- 

ASL 


|2 BIT NACH LINKS 

800 

- 

ORA 

ZNl 


890 

- 

TAX 



900 

-NOR 

STX 

ZE1C*1 


910 





920 

-START 

LDA 

«0 


930 

- 

STA 

AUS6AfiE+l 


940 





930 

-KNftK 

LOA 

COUNTl 


960 

- 

BNE 

AUSGABE 


970 





980 

— 

LDA 

#13 

; ZEILENVORSCHUB 

990 


JSR 

PINS 


1000 

- 

JSR 

CLRCH 

■KEINE DRUCKERAUSSABE KEHR 

1010 

- 

LOA 

• 12 

« FL-NUMKE 




CLOSE 


1030 

-SCHERK 

LDA 

##FF 

SDUHMY 

1040 

- 

STA 

649 


1042 

-RIRM 

LOA 

«*FF 

;DUmV 

1046 

- 

STA 

«DOIA 

; VIC-INTERRUPT ERMOEÖLICKEf 

1050 

- 

CLI 



1060 

- 

RT5 


JR UECfi^SPRUNG 

1070 

—• 




1060 

-AUSGABE 

LDA 

SCREEN 


1090 

- 

CLC 



1100 

- 

LDX 

•0 


lUO 

- 

RQL 



1120 

- 

TAV 



1130 

- 

TXA 



J140 

- 

ROL 



1150 

- 

TAX 



1160 

- 

TVA 



1170 

- 

RQL 




■!L 


21B0 - 

TAY 


1190 - 

TXA 


1200 - 

ROL 


1210 - 

TAX 


1220 - 

TYA 


1230 - 

ROL 


1240 - 

TAY 


1250 - 

TXA 


1260 - 
1270 -1 

ROL 

:• 6 

1260 - 

CLC 


1290 -ZEIC 

ADC tt«FF 

f DUMHY 

1300 - 

6TA Zl*l 

1310 - 
1320 -( 

1330 

STV ZI 


1340 - 
1350 -1 

LOX «0 


1360 -MARK3 

LDY #0 


1370 - 

SEI 


1380 - 

LDA ««31 


1390 - 

STA l 

5 RAM-KCNF. 

1400 - 

STY SIGN 


1410 -HARK 

LDA <21>,Y 


1420 • 

AND B1T0AT,X 

k 1 

1430 - 

BEO NORP 

r 1 

1440 - 

LOA 8irOAT,Y 

1 1 BYTE 

1450 -NORP 

DRA SION 

1 i 

1460 - 

STA SIGN 

t t KIPPEN 

1470 - 

INV 

1 1 

1490 < 

CPY *B 

1 } 

1490 - 

BNE HARK 


1500 - 

LDY NUME 


1S10 - 

STV ZW2 


1520 - 
1530 -( 

STX ZW2 


1540 - 

LOA #«37 


1550 - 

STA l 


1560 - 
1570 

CLI 


1580 -MARK2 

LDX «2 


1590 - 

LDA SIGN 


1600 - 

JSR PINS 

«AUSDRUCK 

1610 - 

DEC ZW2 

«DICHTE 

1620 - 

BNE nARK2 


1630 - 

LDX ZWl 


1640 - 

/ INK 

;NAECH5TE PIXEL-REIHE 

1650 - 

CPX «B 


1660 - 
1670 -i 

BNE MARK3 



DEC COUNTl 


1700 - 

INC AUSGABE-*-! 


1710 - 

JMP KNAK 

sRUECKSPRUNG 

10000-61TDAT 

.BV 126,64,32,16,8,4,2*1 

10010-DAT] 

.6V «4B,«S9,«4C 

,«SA. 

10020-DAT2 

.6V «£0,«C0,«C0 

,«90 

10030-OAT3 

.BY 1,3,3,7 


1004e-DAr4 

2000B-.EN 

40000-TEXT 

50000-: 

5000]-) 

SO002-: 

.BY 1,2,2,4 


S0003-; EIN 

50004-$ 

50005-: 

50006 

PROGRAHH VON QLIVER 

HDELLER 


Listing 12. (Schluß) 


8 . 


112 Sprifes 


Diese Routine macht es möglich, 112 Sprites in Form einer 
8* 14-Matrix auf den Bildschirm desC64 zu bringen. Auf die 
Bewegung der Sprites wurde verzichtet, da nur das Prinzip 
der Sprite-Darstellung verständlich werden soll. Vom C64 


ist bekannt, daß acht Sprites ohne Probleme darstellbar 
sind. Durch geschickte Umschaltung der Sprites durch den 
Rasterzeileninterrupt lassen sich bis zu 14 Zeilen mit je¬ 
weils acht Sprites einblenden. Bevor man 112 Sprites se¬ 
hen kann, ist Listing 13 einzugeben. Der Aufruf der Routine 
erfolgt über SYS 8263. Listing 14 zeigt den dokumentierten 
Quellcode. (M. Herrmann/ef) 


Manie 

112 Sprites 



2000 212d 

2058 

20 

dO 

Sd 

21 

dO 

a9 

Ib 

8d 

4a 











2060 

11 

dO 

a9 

20 

8d 

15 

03 

a9 

29 

2000 

00 

00 

00 

7f 

ff 

fe 

7f 

ff 

e6 

2068 

80 

8d 

10 

dO 

a9 

ff 

8d 

15 

c6 

2008 

fe 

7f 

ff 

fe 

7f 

ff 

fe 

7f 

98 

2070 

dO 

20 

44 

e5 

20 

66 

e5 

a2 

30 

2010 

ff 

fe 

7f 

ff 

fe 

7f 

ff 

fe 

58 

2078 

00 

a9 

80 

9(3 

f8 

07 

bd 

3f 

5a 

2018 

7f 

ff 

fe 

7f 

ff 

fe 

7f 

ff 

3c 

2080 

20 

9d 

27 

(30 

e8 

eO 

08 

dO 

aa 

2020 

fe 

7f 

ff 

fe 

7f 

ff 

fe 

7f 

bO 

2088 

fO 

a9 

01 

ed 

86 

02 

a9 

97 

ed 

2028 

ff 

fe 

7f 

ff 

fe 

7f 

ff 

fe 

70 

2090 

8d 

14 

03 

58 

60 

ea 

ea 

ce 

9a 

2030 

7f 

ff 

fe 

7f 

ff 

fe 

7f 

ff 

54 

2096 

19 

dO 

a9 

f4 

8d 

12 

dO 

a9 

22 

2038 

fe 

7f 

ff 

fe 

00 

00 

00 

Ob 

eo 

20 a 0 

Ib 

8d 

11 

dO 

a 2 

20 

ca 

dO 

de 

2040 

Ob 

Oe 

Of 

Of 

Oc 

Ob 

Ob 

78 

2d 

20ae 

fd 

a9 

13 

8d 

11 

dO 

a2 

00 

12 

2048 

a9 

7f 

8d 

Od 

de 

a9 

fl 

Sd 

b4 

20b0 

bd 

fd 

20 

9d 

00 

dO 

es 

eO 

14 

2050 

la 

dO 

a9 

00 

8d 

12 

dO 

8d 

04 

20b8 

10 

dO 

f5 

a2 

aO 

ca 

dO 

fd 

a2 


20o0 ; 

: a2 

00 

bd 

Od 

21 

9d 

00 

dO 

14 

20c8 ; 

: eS 

eO 

10 

dO 

f5 

b2 

ff 

ca 

48 

20d0 ; 

: dO 

fd 

a2 

00 

bd 

Id 

21 

9d 

cc 

20d8 ; 

: 00 

dO 

ee 

eO 

10 

dO 

f5 

aO 

37 

20e0 ; 

; Ob 

a2 

8b 

ca 

ao 

fd 

a2 

01 

02 

20e8 : 

: bd 

00 

dO 

18 

69 

15 

9d 

00 

92 

20f0 i 

; dO 

e8 

e8 

eO 

11 

dO 

fl 

88 

fb 

20f8 ; 

: dO 

e7 

4c 

31 

ea 

56 

01 

70 

4b 

2100 ; 

01 

88 

01 

aO 

01 

b8 

01 

dO 

15 
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*. .44* nm 
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2108 

01 

e8 

01 

00 

01 

56 

16 

70 

ca 


2110 

16 

88 

16 

aO 

16 

b6 

16 

ao 

25 


2118 

16 

ee 

16 

00 

16 

58 

05 

70 

41 

Listing 13. 

2120 

05 

88 

05 

aO 

05 

b8 

05 

dO 

8b 

(Schluß) 

2128 

05 

ee 

05 

00 

05 

29 

7f 

91 

9a 


840 Interruptroutine 


290 

- ,ba$2000 



300 

Spritedaten 


310 

-12000 

• by 

$00,$00 

$00,$7f,$ff,$fe,$7f.$ff 

330 

- 

• by 

$fe,$7f 

$ff,$fo,$7f,$ff,$fe,$7f 

350 

- 

• by 

$ff,$fe 

$7f,$f£,$£a,$7f,$ff,$fe 

370 

- 

-by 

$7f,$ff 

$fe,S7f,$ff,$fe.$7f,$ff 

390 

- 

• by 

$fe,$7f 

$ff,$fe,$7f,$ff,Sfe,$7f 

410 

- 

■ by 

$ff,$fe 

$7f,$ff,$fe,$7f,$ff,$fe 

430 

- 

• by 

$7f,$ff.$fe,$7f,$ff.$fe,$7f,$ff 

450 

- 

• by 

$fe,$7f 

$ff,$fe,$00,$00,$00 

460 

Sprltefarben 


470 

-1203f 

• by 

$0b,$0b,$0c,$0f,$0f,$0c,$0b,S0b 

480 

Rgutine 

zum Einbinden 

490 

-12047 

sei 


Interrupt sperren 

500 

- 

Ids 

fl$7f 


510 

- 

sta 

$deOd 

CIA-Interrupt löschen 

520 

- 

Ida 

«$f 1 

Rasterzeileninterrupt 

530 

- 

sta 

SdOla 

setzen 

540 

- 

Ida 

#$00 


650 

- 

sta 

$d012 

Rasterzelle setzen 

560 

- 

sta 

$d020 

Rahmen : Schwarz 

570 

- 

sta 

$d021 

Hintergrund: Schwarz 

580 

- 

Ida 

#$lb 


590 

- 

sta 

$d011 

Textbildschirm 

600 

- 

Ida 

«$20 

IRQ-Vektor (high) 

610 

- 

sta 

$0315 

setzen 

620 

- 

Ida 

#$80 

Position der Sprites 

630 

- 

sta 

$d010 

(Bits 8) 

640 

- 

Ida 

#$ff 


650 

- 

sta 

$d016 

Sprites einschalten 

660 

- 

jsr 

Se544 

Bildschirm löschen 

670 

- 

jsr 

$@566 

Cursor nach oben 

680 

- 

Idx 

#S00 


690 

“12079 

Ida 

#$80 

Spritezeiger 

700 

- 

sta 

$07f8,x 

setzen 

710 

- 

Ida 

IZOSf .X 

Farben der 

720 

- 

sta 

$d027,x 

Sprites setzen 

730 

- 

inx 



740 

- 

cpx 

#$08 

für acht Sprites 

750 

- 

bna 

12079 


760 

- 

Ida 

ff$01 

Sohriftfarbe: Heiß 

770 

- 

sta 

$0266 


780 

- 

Ida 

ff$97 

IBQ-'Vektor (lowj 

790 

- 

sta 

$0314 

setzen 

800 


oli 


Interrupt zulessen 

810 

- 

rts 



820 

- 

nop 


Leerbytes für JMP 

830 

► 

nop 




850 - 

dec $d019 ; 

IRQ-Flag löschen 

860 - 

Ida #$f4 ; 

Neue Raaterzeile 

870 - 

sta $d012 ; 

setzen 

880 - 

Ida #$lb ; 

Bildschirm auf 24 

890 - 

sta SdOll : 

Zeilen verkleinern 

900 - 

Idx #$20 


910 -120a6 

dex : 

Verzögerung 

920 - 

bne 120a6 


930 - 

Ida #$13 ; 

Bildschirm auf 25 

940 - 

sta $d011 i 

Zeilen vergrößern 

950 - 

Idx «$00 


960 -120b0 

Ida 120fd,x; 

Spritepos 1tionen 

970 - 

sta $d000,xi 

setzen 

980 - 

inx 


990 - 

cpx «$10 ; 

16 Byte 

1000 - 

bne 120b0 



1010 
1020 
' 1030 
‘ 1040 
' 1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1160 
1160 
1170 
1180 
1190 
• 1200 
1210 
1220 
1230 

1260 
£1270 
, 1280 
. 1290 

■ 1300 

■ 1310 
1320 

'1330 
:i340 


Idx #SaO 

-120bd dex ; 

bne 120bd 
Idx SSOO 

-120c2 Ida 1210d,x; 
sta SdOOO.x; 
Inx 

cpx «$10 ; 

bne 120c2 
Idx #$ff 

-I20cf dex ; 

bne 120of 
Idx «$00 

-120d4 Ida 1211d.x; 
sta $d000,x; 
Inx 


Versägerung 

Spritepositionen 

setzen 

16 Byte 
Verzögerung 


Spritepositionen 

setzen 


cpx 

bne 

Idy 

-120el Idx 

'120e3 dex 
bne 
Idx 

-120e8 Ida 
de 
ade 
ata 
inx 
Inx 
cpx 
bne 
dey 
bne 
jmp 


#$10 

120d4 

#$0b 

#SSb 

120e3 

#$01 

$d000.x 

#$15 

$d000.x 


#$i: 

120e8 

120el 

SeaSl 


11 Reihen Sprites 

Verzögerung 

Zähler setzen 
Spriteposition lesen 

21 addieren 
und neu setzen 

8 Sprites 
11 Reihen Sprites 
Normale IRQ-Routlne 


1350 Spritepositionen 

1360 -120fd .by $58,$01.$70,$01,$88,$01,$a0,$01 
1380 - ,by $b8.$01,$d0,$01.$e8,$01,$00,$01 

.1400 -i210d .by $58,$16.$70,$16.$88,$16,$a0,$16 
1420 - .by $b8,$16,$d0,$lG,$e8.Sie,$00,$16 

1440 -1211d .by $58,$06.$70,$06,$88,$05,$a0.$05 
1400 - -by Sb8,$C'5.$dO,$05,$e8,$05,$00.$06 


Lieting 14. Oer Ouelltext zur Spriteroutine 


9. Super-Rasterzeilen-Interrupt 


Es gibt mittlerweile viele Methoden, den Bildschirm durch 
ausgefeilte Interrupttechnik aufzuteilen oder ihn von sei¬ 
nem Rahmen zu befreien. Häufig ist es nötig, einen Raster- 
zeilen-lnterrupt an einer genau definierten X-Position erfol¬ 
gen zu lassen, weil sich nur so zum Beispiel der seitliche 
Rahmen entfernen läßt. Bislang ließ sich nur mit entspre¬ 
chend vielen NOP-Befehlen das Zeitverhallen so ausfüf- 
teln, daß kein Flimmern auftritt. An ein parallel arbeitendes 
Programm war gar nicht zu denken, da durch unterschiedli¬ 
che Befehlslängen der Interrupt bis zu sieben Mikrosekun¬ 
den zu spät kommen kann, was das Timing komplett durch¬ 


einanderwirft. Das LIsting 15 zeigt jedoch eine Routine, die 
am oberen Rand des Bildschirms einen kurzen Farbstrei¬ 
fen darstellt, der sich durch (fast) nichts von seiner Lage ab¬ 
bringen läßt. Darüber befindet sich ein Streifen, der nach 
der ■■herkömmlichen« Methode gebildet wird und bei Ta¬ 
stendrücken dementsprechend stark hin und her springt. 
Nun jedoch zur Beschreibung des Programms; 

Nach dem Aufruf des Programms mit 
SYS 49152 

wird der Rasterzeilen-Inlerrupt initialisiert und ins Haupt¬ 
programm zurückgesprungen. Die Interrupt-Routine be¬ 
ginnt ab $C020 (siehe Quelltext, Listing 16). 

Zunächst wird das IRQ-Register des Videochips ge¬ 
löscht. Dann erfolgt durch entsprechend viele NOP-Befeh- 
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Käme 

super raster irq 

eOOO cObO 

c040 

01 

de 

6e 

01 

do 

8c 

20 

dO 

c7 

c090 

ea ea ea ee ea ea 

ea 

ea 

8f 






e048 

a9 

Oe 

8d 

20 

dO 

ad 

13 

dO 

o8 

c098 

ea ea a2 09 ca dO 

fd 

ea 

c2 

cOOO 

78 a9 20 8d l4 03 

e9 

oO 

88 

c050 

8e 

02 

de 

ec 

03 

de 

ee 

01 

fb 

cOaO 

ea ea a9 01 8d 20 

dO 

a9 

fa 

o008 

8d 15 03 a9 01 8d 

la 

dO 

9ö 

o058 

de 

a2 

7f 

ee 

00 

de 

4a 

4a 

de 

c0a8 

Oe 8d 20 dO 4e 31 

ee 

aa 

ee 

oOlO 

8d Od de a9 26 8d 

12 

dO 

69 

c 060 

4a 

6d 

68 

oO 

90 

00 

b8 

50 

30 






o018 

a9 Ib 8d 11 dO 56 

60 

00 

26 

c068 

12 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

8f 






c020 

ad 19 dO 8d 19 dO ea 

ea 

d9 

c070 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

6f 

LIsting 15. 




c028 

ea ea ea ea ea ea 

ea 

a2 

96 

c078 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

77 

Und es geht doch 




c030 

ffaO 00 8e 00 de 

8c 

02 

6e 

c080 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

7f 

flackerfrei - der horizontale 



o038 

do 8e 03 de 8e 01 

de 

8c 

35 

o088 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

87 

Rasterzellen-Intarrupt 





le eine Verzögerung, die dafür sorgt, daß der Farbstreifen 
ungefähr in der Mitte des Biidschirms steht. Von Adresse 
$C045 bis $C04C wird dieser Farbstreifen erzeugt. 

Doch wozu nun die vieien STX und STY in die Register 
ab $DC00? Zunächst wird hier Port A der CiA 1 auf Einga¬ 
be, dann Port Bauf Ausgabe geschaltet. Nun werden in Port 
B aile Bits gesetzt, gelöscht und wieder gesetzt. »Was soll 
das denn jetzt schon wieder?« werden Sie fragen. Kenner 
der C64-Hardware wissen, daß am Joystick-Port 1 ein Ein¬ 
gang für einen Lightpen vorhanden ist. Dieser ist mit dem 


Eingang für den Feuerknopf identisch. Wird nun der Ein¬ 
gang für den Feuerknopf ais Ausgang programmiert, so 
lassen sich über den CIA Impulse auf den Lightpen-Ein- 
gang des VIC geben. Der Videochip legt bei einem Inter¬ 
rupt, der ja hier durch die CIA 1 erzeugt wird, die aktuelle 
Position des Elektronenstrahls in Register $D013 ab. Jetzt 
wird der Urzustand des Tastatur-Ports wiederhergestellt. 

Im Akku befindet sich nun die X-Position, an der in Port 
Balle Bits auf 0 gingen. Die Genauigkeit beträgt zwei Bild¬ 
punkte. Die kleinste Zeiteinheit, mit der der C64 einen Pro- 














78 



aal 

; Interrupt sperren 



,c06e 

aa 



nop 





,C001 

b9 

20 


Ida »20 

; Interruptvektor 



,c06f 

ea 



nop 





,0003 

8d 

14 

03 

ata 0314 

; auf die eigene 



,0070 

aa 



nop 





C006 

a9 

00 


Ids *c0 

; routlna richten 



,0071 

ea 



nop 





,C00B 

ed 

15 

03 

ata 0315 




,0072 

ea 



nop 





,G00b 

«9 

01 


Ida »01 




,0073 

ea 



nop 





,c00d 

Bd 

la 

d0 

sta d0la 




,0074 

ea 



nop 





,c0ie 

8d 

ed 

de 

sta dc0d 




,0075 

aa 



nop 





,c013 

a9 

26 


Ida *28 




,0076 

ea 



nop 





,c0ia 

ed 

12 

d0 

sta d012 




.0077 

ea 



nop 





,C018 

a9 

Ib 


Ida *lb 




,0078 

ea 



nop 





,c01a 

Bd 

11 

d0 

sta d011 




,0079 

ea 



nop 





.C01d 

,c01e 

SB 

60 



cli 

rts 

; intacrupt. frai^a.bp^ 

\ 



ea 

ea 



nop 

nop 

nop 













t Cu /e 








.C01f 

00 



brk 

; laerbyta 



,c07d 

ea 



nop 













/e 

ea 



nop 





,c020 

ad 

19 

d0 

Ida d019 

; interrapt-flag 



,c07f 

ea 



nop 





,c023 

Bd 

19 

d0 

sta d019 

; loschen 



,0080 

ea 



nop 





,c026 

ea 



nop 




,0081 

ea 



nop 





,C027 

ea 



nop 




,0082 

ea 



nop 





,C02S 

ea 



nop 




,0083 

ea 



nop 





,C029 

ea 



nop 




,0084 

ea 



nop 





,c02a 

ea 



nop 




,0085 

ea 



nop 





,c02b 

ea 



nop 




,0086 

ea 



nop 





,c02c 

ea 



nop 




,c0ß7 

ea 



nop 





,ce2d 

ea 



nop 




,0088 

aa 



nop 





,002« 

ea 



nop 




,0089 

ea 



nop 





,002* 

a2 

rr 


Id» »ff 




,C08a 

aa 



nop 





,0031 

a0 

00 


Idy »00 




,0065 

ea 



nop 





,0033 

e« 

00 

de 

Btx d,.aa 

;1- 



f c09c 

ea 



nop 





,0036 

Bc 

02 

de 

sty dc02 

{Interrupt- 



,c8ed 

ea 



nop 





,0039 

da 

03 

de 

stx dees 

;anfocderung 



,c0Ba 

ea 



nop 





,c03c 

ea 

01 

de 

atx dc0l 

; Position 



,c08f 

aa 



nop 





,c03f 

9c 

01 

de 

aty dc01 

;nun ln 



,0090 

aa 



nop 





,0042 

8a 

01 

de 

stx dc01 

;3O013 



,0091 

ea 



nop 





,0046 

Sc 

20 

d0 

aty d020 




,0092 

ea 



nop 





,0048 

■ 9 

0« 


Ida »0e 

IherkbDn- 



,0093 

ea 



nop 





,004« 

ed 

20 

dB 

ata d020 

; Hoher 



,0094 

aa 



nop 





,o04d 

ad 

13 

d0 

Ida d013 

;Balk«n 



,0096 

ea 



nop 





.0050 

8a 

02 

de 

stx dc02 




,0096 

ea 



nop 





,0053 

Bc 

03 

de 

sty dc03 




,0097 

ea 



nop 





,0056 

ea 

01 

de 

stx de01 




,0098 

ea 



nop 





,0059 

• 2 

7f 


Idx #7f 




,0099 

ea 



nop 





,o05b 

6a 

00 

de 

stx dc00 

;poe. ist 



,c09a 

a2 

09 


Idx 

«09 




,c05a 

4a 



lar 

t la akku 



,c09o 

ca 



dex 


;verzögarung 



,c05f 

4a 



Isr 




,c09d 

d0 

fd 


bne 

c09c 




,0060 

4a 



lar 




,c09f 

ea 



nop 





,0061 

8d 

68 

C0 

sta 0066 




,c0a0 

ea 



nop 





,0064 

90 

00 


bcc 0066 

itlnlng 



,c0al 

ea 



nop 





,0066 

be 



olv 

lausrechnen 



,c0a2 

a9 

01 


Ida 

»01 

;tfBl8en balken 



,0067 

50 

12 


bvc C07b 




,c0a4 

ed 

20 

d0 

eta 

d020 

larzeugen 



,0069 

aa 



nop 




,c0a7 

a9 

0e 


Ida 

»0e 

;nornals 



,c06a 

ea 



nop 




,c0b9 

8d 

20 

d0 

sta 

d020 

;hlntergrundfarbe 



,c06b 

aa 



nop 




,c0ac 

4c 

31 

ea 

Jap 

ea31 

inorDBler Interrupt 



,c 06 c 

,c06d 

ea 

ea 



nop 

nop 












LIsting 16. Der Quelitext hilft beim Verständnis des erläuternden Textes 
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zeß steuern kann, beträgt ungefähr eine Mikrosekunde (ein 
Taktzyklus), ln dieser Zeit »schreibt« der ViC jedoch acht 
Punkte auf den Biidschirm. Der Wert im Akku muß dem¬ 
nach durch vier geteiit werden, um den Abstand vom iinken 
Biidschirmrand in Taktzykien zu erhaiten (Adressen $C05E 
und $C05F). 

Die nächsten Programmschritte haiten den Prozessor ei¬ 
ne Zeitlang auf. Die Anzahi ergibt sich aus der Differenz der 
Zahl 64 und dem Inhail des Akkus. So wird der Prozessor 
mit dem Rasierstrahi genau synchronisiert. Dass keine Be- 
fehie mit einem Taktzykius Dauer gibt, muß wieder ein Trick 
her. Der Akku wird noch einmai durch zwei geteiit ($C060) 
und in Adresse $C068 geschrieben. Dort steht aber der re- 
iative Operant eines BVC-Befehis, der durch dasCLV davor 
zu einem unbedingten Sprung wird. Dieser Branch-Befehl 
springt nun Akkuinhait/2 Bytes weit. Da sein Sprungziet in- 
nerhaib von 32 NOPs liegt und ein NOP zwei Taktzykien zur 
Ausführung benötigt, »paßt« das genau auf unsere Anfor¬ 
derungen. Beispiei: Stand im Akku die Zahi dezimal 10, so 
werden nun 5 NOPs übersprungen - das dauert genau un¬ 
sere erforderlichen 10 Taktzykien. 

Doch was ist mit ungeraden Akkuinhaiten? Geht nicht 
beim Teiien durch zwei das ietzte Bit verioren, so daß eine 
Ungenauigkeit von einem Taktzykius auftreten kann? Nicht 
ganz, denn das herausgeschobene Bit steht noch im Carry- 
Flag des Prozessor-Status-Registers-eine wichtige Eigen¬ 
heit des LSR-Befehis. Bei gesetztem Carry-Fiag soii unser 
Programm also einen Taktzykius weniger warten als bei ei¬ 
nem gelöschten. Die entsprechende Befehisfoige steht ab 


Adresse $C064 und besteht nur aus einem BCC-Befehl, 
der auf das ihm folgende Clear Overflow (CLV) weist. Die¬ 
ser unsinnig erscheinende Befehi hat die für unsere 
Zwecke nötige Eigenschaft; Springt der Prozessor nicht 
(Bedingung nicht erfüllt, Carry-Bit gesetzt), so braucht er 
zwei Taktzykien, springt er (Bedingung erfüilt, Carry ge¬ 
löscht), so benötigt er drei Taktzykien. Das Verb »springen« 
mag hier irritieren, da der Prozessor in jedem Faii bei dem 
CLV weiterarbeitet - der geringe Unterschied ist zum exak¬ 
ten Timing jedoch uneriäßlich. 

Der Rest ist einfach. Nach den NOPs kommt eine Verzö- 
gerungsschieife, die den weißen Streifen positioniert 
(SC09A bis $C0A1), seibiger wird erzeugt ($C0A2 bis 
SCOAB) und in den System-interrupt verzweigt - fertig! 

Bei Betätigung einer beiiebigen Taste flackert der obere 
Balken sofort, während der untere, nach unserem neuen 
Prinzip erzeugte, fest steht wie einbetoniert- mit einer Aus¬ 
nahme: Ein angeschiossener Lichtgriffel, ein gedrückter 
Joystick-Feuerknopf oder die Betätigung der Space-Taste 
(aiies eine Steuerieitung) bringen unsere Routine durch¬ 
einander, da ein Interrupt angefordert wird. 

Dieser kieina Trick mit großer Wirkung eröffnet neue Per¬ 
spektiven in der Raster-Interrupt-Programmierung. Wie 
wäre es mit neuen Mustern im oberen und unteren Rahmen 
(man denke auch an Speicherzeiie $3FFF) oder mit einer 
interessanten Aufteiiung des Bildschirms - iinks Grafik, 
rechts Text? Ein gelungenes Demo befindet sich auf der 
Programmservice-Diskette zu dieser Ausgabe. Ein weites 
Feid tut sich den Profis auf... (A. Beermann/ef) 


10. Die 26ste Zeile 

r 

»Generator 26« reizt den Videochip des C64 wieder etwas 
weiter aus. Wie der Name schon fast sagt, erzeugt das Pro¬ 
gramm eine 26ste Zeiie auf dem Biidschirm. 

Damit die Theorie nicht aiizu langweiiig wird, tippen Sie 
bitte zunächst Listing 17 mit dem MSE (Seite 159) ab. Star¬ 
ten Sie es mit: 

LOAD'GENERATOR 26",8,1 
NEW 

SYS 49152 

Sie befinden sich nun im 26-Zeiien-Modus des C64. Der 
obere und der untere Rand müßten nun ein wenig fiimmern, 
unter Umständen sind über diesen beiden Rändern 
schwarze, senkrechte Streifen zu sehen, doch dazu später. 
Es folgt zunächst eine Auflistung aller Befehle, die zum Be¬ 
dienen des Programms notwendig und hilfreich sind. Die 
zusätzliche Zeile wird im folgenden Zeile 0 genannt. 

SYS 49152 initialisiert das ganze Programm, Zeile 0 wird 
dabei gelöscht. Dies sollte immer als erstes nach dem La¬ 
den eingegeben werden. 

SYS 49155 wirkt wie SYS 49152, außer daß Zeile 0 nicht 
gelöscht wird. 

SYS 49161 wirkt wie SYS 49155, außer daß das Basic- 
ROM und das Kernel-ROM nicht in das darunter liegende 
RAM kopiert werden. Doch Vorsicht: Es entstehen dabei 
Einschränkungen bei der Benutzung von Zeile 0 ( siehe 
-POKE 1,55«). 

SYS 49179 schaltet den 26-Zeilen-Modus wieder aus. 
Dies ist zum Beispiel für das Laden von Diskette nötig. Ver¬ 
sucht man im 26-Zeilen-Modus zu laden, führt dies unwei¬ 
gerlich zum Absturz. 

SYS 49168 löscht Zeile 0. 

SYS 49369, String schreibt den String (maximal 40 Zei¬ 
chen) in Zeile 0 ab Spalte 0. 

SYS 49358, Spalte, String schreibt den String in Zeile 0 
ab der angegebenen Spalte. 


POKE 1,55 »nagelt« den Inhalt von Zeiie 0 praktisch fest. 
Der Inhalt dieser Zeile kann dann weder durch Scrollen 
oder^'jchen des Bildschirms geändert werden. Er kann 
nur noch durch die oben genannten SYS-Befehle manipu¬ 
liert werden. 

POKE 1,53 hebt den unter »POKE 1,55« genannten Zu¬ 
stand wieder auf, Vorsicht: Es muß sichergestellt sein, daß 
das RAM unter dem ROM nicht verändert wurde. 

POKE 49504, Zahl blendet den oberen und unteren Rah¬ 
men aus, wenn Zahl=128 gilt. Liegt der Parameter zwi¬ 
schen 0 und 15, nehmen der obere und der untere Rahmen 
die Farbe von »Zahl« an (Farb-Codes im Bedienungshand¬ 
buch auf Seite 139). 

Beachten Sie bitte, daß Programme im 26-Zeilen-Modus 
zirka 50 Prozent langsamer abgearbeitet werden. Des wei¬ 
teren sollte man den neuen Modus nicht zu aktivieren ver¬ 
suchen, wenn er bereits aktiv Ist. Ein Absturz des C64 ist 
sonst nicht in jedem Fall zu verhindern. 

Eventuell erscheinen schwarze Streifen am oberen und 
unteren Bildschirmrand. Hauptschuldig an diesem Effekt 
ist die Speicherzelle $3FFF. Das »Warum« ist bereits in der 
Ausgabe 1/88 des 64'er-Magazins auf Seite 74 beantwortet 
worden. Abhilfe leistet jedenfalls ein »POKE 4*4096-1,0«, 
was aber wieder ein Basic-Programm überschreiben kann. 
Dann hilft nur eine lange REM-Zeile, die kurz vor der Adres¬ 
se $4000 beginnt, so daß der POKE-Befehl allein den Kom¬ 
mentar zerstört. Ist Ihr Programm kürzer als 14 KByte, so 
sollte der Programmende-Zeiger (45/46) auf $4000 gerich¬ 
tet werden, damit auch Variablen ungefährdet sind. 

Wichtig zu wissen ist außerdem noch, daß das Pro¬ 
gramm bei der Bearbeitung von Strings die Länge nicht 
kontrolliert. Programmierer, die ihre Programme hinter Ge¬ 
nerator 26 (ab $0328) legen, sollten besonders darauf ach¬ 
ten, daß die zu bearbeitenden Strings bei einem »SYS 
49369, String«-Befehl nicht über 40 Zeichen lang sind. Bei 
einem »SYS 49358, X, (String)« darf der String nicht über 40 
minus X Zeichen lang sein. 

Zu beachten ist dabei noch die Tatsache, daß vom Pro- 
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gramrn <RVS 0N>- und <RVS OFF>-Codes in einem 
String nicht (!) ais ein Zeichen zähit, die Codes aber aus¬ 
führt. Foigender String ist aiso unbedenkiich einsetzbar: 
A$ = "0123456789 <RVS 0N> 01234567890123456789 <RVS 
OFF >0123456789" 

Weiterhin behäit < CRSR RIGHT> in einem String sei¬ 
ne Funktion, ein Zeichen auf dem Biidschirm zu übersprin¬ 
gen (zähit als ein Zeichen). <CRSR LEFT>, <CRSR 
UP> und <CRSR DOWN> werden nicht ausgeführt, 
woh! aber im Biidschirmcode angezeigt. Ein CHR$ (13) 
oder CHR$ (141) in einem String führt zum Abbruch des 
Ausdrucks in Zeiie 0. Auf der Programmservice-Diskette zu 
dieser Ausgabe finden Sie zusätzlich noch ein kieines De¬ 
mo zu Generator 26. 

Grundlagen 

Das Prinzip der 26sten Zeiie beruht darauf, daß der Biid¬ 
schirm des C64 um 7 Bit in vertikaier Richtung verschoben 
werden kann. Die Hauptroutine »hängt« im Raster-Inter¬ 
rupt. Um diese zusätzliche Zeile sichtbar zu machen, müs¬ 
sen der obere und untere Bildschirmrand ausgeblendet 
werden, es kann aber ein künstlicher Rand auf Wunsch er¬ 
zeugt werden. Beim Aufruf mit einem SYS wird der Raster- 
Interrupt initialisiert, der erste wird bei Rasterzetle $F9 ge¬ 
setzt. Im folgenden wird beschrieben, was bei den einzel¬ 
nen Interrupts passiert: 

Zeile$F9: Die Vorbereitungen zum Ausblenden des Ran¬ 
des werden getroffen und der nächste Raster-Interrupt auf 
$FF festgelegt. 

Zeile $FF: Der obere und untere Bildschirmrahmen wer¬ 
den ausgeblendet und der Bildschirm um 7 Bit nach oben 
verschoben. Die Daten aus Zeile 1 ($0400 bis $0427) wer¬ 
den zwischengespeichert (von $C2D0 bis $C2F7), und die 
Daten, welche Zeile 0 repräsentieren, werden aus dem Be¬ 
reich $C300 bis $C327 in Zeile 1 kopiert. Dann durchläuft 
das Programm eine Warteschleife, bis der Rasterstrahl 
oben am Bildschirm bei $30 angelangt ist (daraus resultiert 
der knapp SOprozentige Geschwindigkeitsverlust, da in die¬ 
ser Zeit ein Basic-Programm nicht abgearbeitet werden 
kann). 

Zeile $30: Diese Rasterzeile ist für den VIC wichtig: Hier 
holt er sich nämlich die Daten aus dem Bildschirmspeicher 


Programmbeschrelbung zu »Generator 26» 

Länge In Bytes: 

711 ($2C7) 

Benutzter Speicher: 

49152 bis 49950 ($CO00 bis SC327) 

Programm: 

SCOOO Pis $C2C7 

Bufferspeicher für Zelle 1: 

$C2D0 Pis $C2F7 

Datenspeicher für Zelle 0: 

$0300 bis $0327 


Beispiele für die Benutzung der Befehle 


0 SYS 49152 : REH 26-ZEILENHODUS AN 
10 A«17 : T$=' DEMO' : SYS 49358,A,T$ 
10 C-SQR(2»)+SIN(0.865) ; SYS 49369,0 
10 SYS49369,” DEMOTEXT" 

10 SYS49358.10,' *»*,, GESCHAFPT 
10 P0KE1,53:PRINT '[CLR]' :REM 
BILDSCHIRM UND ZEILE 26 LOESCHEN 
10 P0KE1,55:PRINT '[CLR]' :REM 
BILDSCHIRM OHNE ZEILE 26 LOESCHEN 
10 SYS 49168 ; REM ZEILE NULL LOESCHEN 
20 SYS 49179 ; REM 26-ZEILENMODUS AUS 


für die nächsten acht Rasterzeilen. Sobald er das getan 
hat, wird der Bildschirm um 7 Bit nach unten verschoben 
und die Daten aus dem Zwischenspeicher für Zeile 1 
($C2D0 bis $C2F7) wieder in den Speicher für Zeile 1 ge¬ 
schrieben, wo vorher der VIC die Daten für Zeile 0 vorfand, 
Dies muß leider in einer LDA-STA-Kette geschehen, da eine 
indizierte Schleife zu lange dauert. Der Bildschirm ist jetzt 
um 7 Bit nach unten verschoben, und der VIC sieht sich 
plötzlich mit der Tatsache konfrontiert, daß er jetzt zum 
zweiten Mal eine Bildschirmzeile ab $30 aufbauen muß. Al¬ 
so holt er die Daten zum Aufbau dieser Zeile zum zweiten 
Mal ab der Adresse $0400. Der ganze Trick besteht also 
darin, den Arbeitsspeicher ab $0400 doppelt zu benutzen 
und die Daten zum richtigen Zeitpunkt schnell genug aus¬ 
zutauschen. 

Der Teil des Programms, der im Interrupt hängt, belegt 
den Speicherbereich von $C162 bis $ C2C7. Weil der Rand 
abgeschaltet ist, muß die Bildschirmfarbe dafür herhalten, 
wenn in $C160 Bit 7 nicht gesetzt ist. Dann wird die Bild- 
'schiriflT^,‘De in $C161 zeitweilig zwischengespeichert und 
der Wert aus $C160 nach$D021 geschoben. Dadurch kann 
ein oberer und unterer Rand simuliert werden. Die Routi¬ 
nen zum Ein- und Ausschalten vom Interrupt sowie das Ver¬ 
walten der Daten für Zeile 0 befinden sich im Bereich von 
$C000 bis $C15F. Sie enthalten keine programmtechni¬ 
schen Besonderheiten, außer daß bei den Routinen zum 
Auswerten und Anzeigen eines Textes die Umwandlung 
von ASCII-Code in Bildschirmcode »von Hand« gemacht 
werden muß, da das Betriebssystem keine derartige Routi¬ 
ne anbietet. 

Es wurde streng darauf geachtet, daß unterhalb von 
$C000 kein Speicherplatzbelegtwird, weder in der Zeropa¬ 
ge noch sonstwo. Die Kompatibilität zu allen Basic-Pro- 
grammen, die keine Daten im $C000-Bersich ablegen, ist 
damit gesichert. (B. Chevreux/ef) 


Name 

generator 26 


cOOO c2c8 

o080 

a2 

oO 

aO 

81 

8d 

14 

03 

8e 

7d 

cllO 

e6 22 

dO 

e7 

e6 

23 

dO 

e3 

cb 











oOBS 

15 

03 

8c 

la 

dO 

a9 

Ib 

a2 

91 

ell8 

o9 92 

dO 

04 

a9 

00 

fO 

ee 

Ib 

oOOO 

20 

10 

cO 

20 

Ib 

oO 

20 

3b 

Ob 

o090 

f9 

3d 

11 

dO 

8e 

12 

dO 

58 

lo 

0120 

o9 20 

90 

Oa 

o9 

60 

90 

04 

49 

o008 

cO 

20 

7d 

oO 

20 

a2 

eO 

60 

2b 

c098 

60 

ad 

19 

dO 

ad 

19 

dO 

4c 

ad 

0128 

29 df 

dO 

02 

29 

3f 

e6 

o7 

6d 

oOlO 

a2 

27 

a9 

20 

9d 

00 

e3 

ca 

33 

cOaO 

31 

ea 

78 

a9 

62 

a2 

Cl 

aO 

Id 

0130 

o6 o7 

fO 

02 

09 

80 

99 

00 

51 

o018 

10 

fa 

60 

78 

a9 

00 

a2 

31 

54 

c0a8 

2f 

8d 

14 

03 

3e 

15 

03 

ec 

ba 

0138 

c3 o8 

4o 

f8 

cO 

60 

29 

7f 

44 

q020 

aO 

ea 

8d 

le 

dO 

8e 

14 

03 

b4 

cObO 

05 

de 

58 

60 

a2 

27 

bd 

00 

aO 

ol40 

o9 7f 

dO 

02 

a9 

5e 

o9 

12 

16 

a028 

8c 

15 

03 

a9 

Ib 

a2 

40 

aO 

3e 

c0b6 

04 

9d 

00 

c3 

ca 

10 

f7 

a5 

5c 

cl48 

fO d2 

09 

20 

90 

05 

09 

40 

ee 

o030 

37 

8d 

11 

dO 

6e 

05 

de 

84 

la 

oOoO 

ac 

48 

4o 

ed 

e6 

20 

10 

oO 

b2 

cl50 

4c 2e 

Ol 

o9 

Od 

dO 

f9 

fO 

7e 

o038 

01 

58 

60 

78 

a2 

61 

a9 

9f 

a8 

o0c8 

ad 

68 

02 

4o 

47 

e5 

20 

fd 

e4 

0158 

e4 00 

00 

00 

00 

00 

00 

00 

3d 

o040 

8d 

48 

oO 

8d 

4b 

cO 

b9 

00 

75 

oOdO 

ae 

20 

9e 

b7 

8a 

eO 

27 

90 

98 

ol 60 

Oe f6 

ad 

19 

dO 

ed 

19 

dO 

f7 

c048 

00 

99 

00 

00 

o8 

dO 

f7 

ee 

e6 

c0d8 

02 

a9 

00 

18 

69 

00 

8d 

37 

ed 

0168 

30 07 

ad 

Od 

de 

58 

4o 

31 

4d 

c050 

48 

cO 

ee 

4b 

cO 

ca 

dO 

ee 

al 

cOeO 

cl 

20 

fd 

ae 

20 

9e 

ad 

24 

fc 

ol70 

ea ad 

12 

dO 

c9 

f9 

dO 

Od 

99 

c058 

58 

a9 

35 

85 

01 

a9 

4c 

8d 

2d 

cOeS 

Od 

30 

06 

20 

dd 

bd 

20 

87 

ee 










ö060 

44 

e5 

8d 

ea 

e8 

a9 

o5 

a2 

90 

cOfO 

b4 

20 

a6 

b6 

aa 

aO 

00 

eS 

b6 










o068 

öO 

Sd 

45 

e5 

8e 

46 

e5 

a9 

03 

oOfS 

ca 

fO 

42 

bl 

22 

30 

3f 

c9 

35 

Listing 17. 








c070 

b4 

a2 

cO 

Bd 

eb 

es 

8e 

ec 

71 

olOO 

Od 

dO 

03 

4o 

3d 

Ol 

c9 

Id 

03 

»Generator 26« 
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C64 
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e6 
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dd 

fd 

60 

78 

a9 
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4b 
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fO 

2f 

o9 

12 

dO 

Oa 

85 

c7 

47 
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ad 

eb 
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Oc 

ad 

21 

dO 

8d 

61 

Ol 

dO 
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04 

ad 

de 

c2 

8d 

93 

0278 

c2 
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Ib 

04 

ad 
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8d 

bl 

0 I 9 O 

ad 
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ed 

21 
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a9 
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c3 
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09 
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o280 
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04 

do 

0198 

ed 

12 
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a9 
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11 

dO 

6b 

c210 

ad 
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8d 

Oe 

04 

ad 

db 

bc 

0288 

ad 

ee 

c2 

ed 

le 

04 

ad 

ef 

a7 

claO 

82 

27 

bd 

00 

04 

9d 

dO 

o2 

3b 

0216 

o2 

8d 

Ob 

04 

ad 

da 

ö2 

8d 

00 

c290 

c2 

8d 

If 

04 

ad 

fO 

c2 

8d 

ea 

cla6 

bd 

00 

c3 

9d 

00 

04 

ca 

10 

75 

o 220 

Oo 

04 

ad 

dd 

c2 

ed 

Od 

04 

2a 

0298 

20 

04 

ad 

fl 

c2 

6d 

21 

04 

89 

clbO 

fl 

ad 

12 

dO 

o9 

2e 

dO 

f9 

50 

0228 

ad 

de 

c2 

ed 

Oe 

04 

ad 

df 

le 

c2a0 

ad 

f2 

c2 

6d 

22 

04 

ad 

f3 

09 

clb8 

ad 

11 

dO 

29 

80 

dO 

f2 

ad 

fd 

c230 

c2 

ed 

Of 

04 

ad 

eO 

c2 

Sd 
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c2a8 

o2 

8d 

23 
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8d 

23 

oloO 
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Ol 

30 

06 

ad 

61 

Ol 

8d 

d6 

0238 
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Sd 

11 

04 

d7 

o2b0 

24 

04 

ad 

f5 

c2 

8d 

25 

04 

36 
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21 

dO 

a2 

17 

oa 

dO 

fd 

a9 

5b 

o240 

ad 

e2 

o2 

8d 

12 

04 

ad 

e3 

80 

c2b8 

ad 

f6 

c2 

Sd 

26 

04 

ad 

f7 

6c 

oldO 

If 

8d 

11 

dO 

ad 

dO 

c2 

8d 

90 

0248 

c2 

ed 

13 

04 

ad 

e4 

c 2 

8d 

3e 

o2o0 

o2 

8d 

27 

04 

4c 

7e 

ea 

00 

f8 

eld8 

00 

04 

ad 

dl 

c2 

8d 

01 

04 

24 

c250 

14 

04 

ad 
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o2 

ed 

15 

04 

83 
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d2 

02 

8d 

02 
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f7 
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ad 

e6 

o2 

8d 
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04 

ad 

e7 

e3 











cle8 

c2 

6d 
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c2 

8d 

5a 
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o2 

ed 

17 

04 

ad 

e8 

c2 

ed 

77 

Listing 17. (Schluß) 






11. DerDoppemC 


Nach Hunderten von Sprites auf einmal auf dem Bildschirm 
-die nur leider nicht zu benutzen waren - wollte ich mit mei¬ 
nem Programm »Multi 16« (Listing 19. bitte mit dem MSE 
eingeben) etwas »back to the roots«. Es stellt zwar nur 16 
Sprites auf dem Bildschirm dar, kann sie jedoch uneinge¬ 
schränktverwalten. Es erlaubt für jedes der 16Spriteseine 
beliebige Position, Farbe, Multicolor und X/Y-Vergröße- 
rung. Listing 18 zeigt ein Demoprogramm. 

Multi 16 liegt ab Speicherzelle SCEOO. Zum Start wählt 
man zwischen SYS 52992 (nur den IRQ starten) und SYS 
52995 (auch den neuen VIC initialisieren). Mit SYS 52998 
wird Multi 16 wieder ausgeschaltet und der VIC in seinen 
Ausgangszustand versetzt. Ab SCFOO finden Sie die Regi¬ 
ster für die Sprites 1 bis 8 und ab $CF30 die für NumftieP 
9 bis 16. Die Belegung entspricht genau der des Original- 
VIC. Es werden aber nur die Speicherstellen $D000 bis 
$D010, $D015, $D017, $D01b bis $D01f und $D025 bis 
$D02F berücksichtigt. Die übrigen VIC-Register verwen¬ 
den Sie auch weiterhin ganz normal. Ab $CF60 und $CF70 
müssen die Spritepointer stehen, die immer nach $07F8 
verschoben werden. Den Bildschirm darf man also nicht an 
andere Adressen verlegen. Ansonsten ist alles erlaubt (wie 
z.B. geänderter Zeichensatz). Die Funktionsweise ist ähn¬ 
lich der des 136-Farbendemos aus Ausgabe 3/88 des 64’er- 
Magazins. Auch hier bei Multi 16 wird der Trick mit dem Ra¬ 
sterinterrupt verwendet. Es wird einmal der VIC ab SCFOO 
und einmal der ab $CF30 gezeigt. Aus demselben Grund 
flimmern auch die Sprites etwas, vor allem bei hellen Far¬ 


ben. (F. Deinzer/ef) 


le REM «* MUTLI tä WRITTEN '88 BY <007> 

11 REM • FRANK DEINZER <154> 

12 REM * TANNENSTRASSE 2B <197> 

13 REM • B5aS ROETHENBACH <218> 

14 REM <eä3> 

15 REM DEMO <a&3> 

16 I <24B> 

18 IF PEEK (32736) <>*76 THEN LOACMULTI 16", 

a,t <i67> 

19 SYS 3B64Bs8Yg 64709|SYS 64931 <121> 

2B POKE 53281,.iPOKE 33280,. <B07> 

23 FÜR T=12864 TD 13952iP0KE T.BjNEXT <B54> 

2S BAx491SZ-«-lS«2S6 ; REM BASISADRESSE VON 

VIC-MUL.TI 16 <20a> 

30 Vl=BAiV2«>BA«'3<16l REM NEUEN VIC ADRESSE 

N <016> 

33 Zl>BA«-6*16lZ2«BA+7*16:REM SPRITEPOINTER 

ADRESSEN <ai6> 

40 SA*49t52+14*256:REf1 STARTADREBSE <ia5> 

SB PRINT"{CLR,MHiTE>OIESES PROBRAMM KANN 1 

6 SPRITES UN-" <209> 


55 PRINT'-EINGESCHRAENKT ANZEIGEN (AUCH Z.B 

ALLE" <160> 

60 PRINT"16 NEBENEINANDER)." <074> 

65 PRINT"eiNEN MOMENT BITTE"«POKE 56334,01 

POKE 1,5IbPRINT"<2D0WNJ'‘ <Z35> 

70 FOR T=0 TO 158PO*201*64+T*64 <023> 

75 NU»=RIGHT* ( "0’'+RIQHT* (STR» (T+1) ,LEN (STR 

*(1+1))-l),2) <1B7> 

GB A1=ASC(LEFT*(NU»,1))sAZ^ASC(RIGHT*(NU*, 

1))!PRINT"<UP>"NU» <17B> 

es FOR R«0 TO 7 <226> 

90 POKE P0+R*3,PEEK(A1*B+5324B+R) <124> 

95 POKE Pa+R*3+l,PEEK(A2*a+53248+R> <lBa> 

100 NEXT R <0O0> 

105 NEXT T <021> 

110 POKE 1,55:P0KE 56334,1 <243> 

113 SYS SA+3;REM START INCL. INIT <142> 

115 PRINT”iCLR>3ETZT WERDEN NACHEINANDER D 

IE 16 SPRITE" <102> 

_)(2aP»*.lNT"EINBESCHALTET: "jFOR T=0 TD 7sP0K 

E ZI+T,201+TsNEXT <232> 

123 FOR T=0 TO TsPOKE Z2+T,209+T;NEXT <1S0> 

125 FOR T=1 TO 15 STEP 2SP0KE Vl+T,100iNEX 

T <023> 

130 A=20;FOR T=0 TD 14 STEP 2:P0KE Vl+T,As 

A-A+20SNEXT <162> 

133 FOR T=1 TQ 15 STEP 2sPQKE V2+T,100;NEX 

T <097> 

140 FOR T=0 TO 14 STEP 2!paKE V2+T,AsA=A+2 

01IF A>255 THEN <197> 

145 IF A>255 THEN A=A-256sP0KE 92+16,240 <150> 

150 NEXT <I60> 

155 L=0sFOR T=0 TD 7|L=L+2tTiPOKE V1+21,L <179> 

160 FOR R=I TO 1000SNEXT R:NEXT T <000> 

163 L=0!FOR T=0 TO 7tL=L+2tTüP0KE V2+21,L <062> 

170 FOR R=1 TO 10008NEXT RsNEXT T <010> 

173 FOR T«1 TQ 15 STEP 2iFaR R=100 TO 200 

STEP liPDKE Vl+T,INT<R>8NEXT R,T <05B> 

130 FOR T=1 TO 13 STEP 28 FOR R=10(S TD 200 

STEP 18PDKE V2+T,INT(R)sNEXT R,T <071> 

190 FOR T-39 TO 468PQKE Vl+T.laFOR R-1 TO 

30OBNEXT R,T <160> 

195 FOR T*39 TO 468POKE V2+T,laFQR R=1 TO 

3008NEXT R,T <197> 

200 FOR T-39 TO 46iP0KE Vl+T,28FOR R=1 TO 

3008NEXT R,T <172> 

205 FOR T-39 TO 46sPaKE V2+T,2lFaR R-1 TO 

300INEXT R,T <209> 

210 FOR T-1 TO 4O0e:NEXTiRUN <064> 


Listing 18. Ein Demo zu Multi 16 


Name 

multi 

16 




ceOO cef8 


ceOO 

4c 

29 

ce 

4o 

09 

ce 

4c 

d8 

08 


ceOS 

ce 

aO 

00 

b9 

00 

dO 

99 

00 

4b 


OBlO 

cf 

99 

30 

of 

08 

cO 

2f 

dO 

a3 


oel8 

f2 

aO 

00 

b9 

f8 

07 

99 

60 

80 


ce20 

cf 

99 

70 

ef 

08 

oO 

08 

dO 

26 

Listing 19. 

ce2S 

f2 

78 

aO 

00 

b9 

00 

dO 

99 

91 

► 
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ceJO 

80 

cf 

c8 

cO 

30 

dO 

f5 

a9 

97 

oe80 

e8 

c8 

cO 

11 

dO 

f4 

ae 

d7 

3e 

oedO 

8d 

d6 ce 4c 7e 

ea 

00 

00 

45 

ce38 

5a 

8d 

14 

03 

a9 

ee 

8d 

15 

30 

oe88 

ce 

bd 

15 

cf 

ea 

15 

ao 

bd 

b4 

ced8 

78 

a9 31 ad 14 

03 

a9 

ea 

f9 

ee40 

03 

a9 

81 

8d 

la 

dO 

a9 

01 

fb 

ce90 

17 

cf 

8d 

17 

dO 

aO 

Ib 

bd 

cf 

ceeO 

ed 

15 03 a9 00 

ed 

la 

dO 

64 

ce48 

ed 

12 

dO 

ad 

11 

dO 

29 

7f 

03 

ce98 

Ib 

cf 

99 

00 

dO 

eS 

c8 

cO 

fa 

cee8 

aO 

00 b9 80 of 

99 

00 

dO 

72 

oe50 

8d 

11 

dO 

a9 

00 

8d 

d6 

ce 

34 

ceaO 

20 

dO 

f4 

ae 

d7 

ce 

aO 

25 

fo 

oefO 

e8 

oO 30 dO f5 

58 

60 

79 

d5 

oe5S 

58 

60 

ad 

19 

dO 

ea 

19 

dO 

ee 

cea6 

bd 

25 

of 

99 

00 

dO 

ee 

c6 

db 








ce60 

30 

07 

ad 

Od 

de 

58 

4o 

31 

45 

cebO 

oO 

2f 

dO 

f4 

aO 

f6 

ae 

d7 

17 








ce68 

ea 

ad 

d6 

oe 

fO 

05 

a2 

30 

da 

oebS 

ce 

eO 

00 

fO 

02 

a2 

10 

bd 

05 
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ee70 

4o 

75 

ce 

a2 

00 

8e 

d7 

ce 

fO 

ceoO 

60 

cf 

99 

00 

07 

eS 

o8 

eO 

ab 

16 unabhängige Sprites auf einmal 

oe78 

aO 

00 

bd 

00 

cf 

99 

00 

dO 

f3 

cec8 

00 

dO 

f4 

ad 

d6 

ce 

49 

01 

2e 

auf dem Biidschirm 






12. »Flexible Line Distonce« 


Nach so vielen Tricks, die den Sprites oder den Farben des 
C64 unter die Arme greifen, wird es 2eit, den Bildschirm 
selbst einmal in Bewegung zu setzen, Wirwollen ihn jedoch 
nicht nur einfach horizontal oder vertikal swollen; wir wol¬ 
len jeder Bildschirmzelle einen variablen Abstand zur vor¬ 
hergehenden Zelle geben. Auch hier heißt das Lösungs¬ 
wort: Raster-IROs. 

Nachdem man das Programm »F.L.D.« (Listing 20) mit 
dem MSE eingegeben und mit LOAD "F.L,D",8,1 geladen 
hat, ist es mit SYS 4096 zu starten. Eine IRQ-Routine ab 
$1027 wird initialisiert und von nun an jede Veo Sekunde 
aufgerufen. 

Diese Routine hat die Aufgabe, die Arbeit des VIC zwi¬ 
schen zwei Bildschirmzeilen für kurze Zeit zu verzögern, 
um so einen bestimmten Abstand zwischen den Zeilen zu 
erzeugen. Zu diesem Zweck wird aus $D012 die aktuelle 
Rasterzeile gelesen, mit r. - - 

AND #807 


auf einen Wert zwischen 0 und 7 reduziert und dann in 
$0011 abgelegt (dieses Register Ist unter anderem für das 
bitweise vertil^le Scrolling des C64 zuständig). Damit Ist 
die aktuelle Rasterzeile um ein Pixel nach unten verscho¬ 
ben. Diese Prozedur wiederholt sich nun entsprechend der 
Anzahl der Rasterzeilen, die laut Tabelle zwischen der letz¬ 
ten und der aktuellen Bildschirmzeile freigeiassen werden 
sollen. Anschließend verzögert eine Leerschleife die Arbeit 
der IRQ-Routine so lange, bis der Rasterstrahl acht Pixel¬ 
zeilen auf den Bildschirm geschrieben hat, um dann für die 
Bearbeitung der nächsten Bildschirmzelle wieder an den 
Anfang der Routine zu verzweigen. In dieser Zeit wird die 
aktuelle Textzeile auf den Bildschirm gebracht. Zum Schluß 
der Routine wird wieder in den normalen System-Interrupt 
verzweigt. 

Um nun den rollierenden Effekt zu erreichen, der sich 
nach dem Start der Routine auf dem Bildschirm zeigt, wer¬ 
den einfach für jede Zeile variable Abstandswerte gewählt, 
die zudem noch zyklisch verändert werden. »Fld.src« (Li- 
, stJngJiM zeigt, wie das Programm aufgebaut ist. 

(Michael Wandel/ef) 
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Listing 21. Das dokumentierte Source-Llsting zu »F.L.D.« 
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13. Paint MagU und Basic-Programme 


Um Paint Magie-Bilder in einem Basic-Programm aufrufen 
zu können, geht man wie folgt vor: 

> Laden des Bildes. 

- Starten des Bildes mit »RUN«. 

- <RUN/STOP RESTDRE> drücken. 

- im Direktmodus »POKE 24565,96«- eingeben. 

- Speichern mit einem Monitor (zum Beispiel SMON) von 
Hex $4000 bis $6400. 

Das Bild kann jetzt, wenn es zuvor absolut geladen wur¬ 
de, in einem Basic-Programm mit »SYS 24513« aufgerufen 
werden. Bei Problemen können Sie als Alternativen statt 
POKE 24565,96 auch POKE 24565,60 oder POKE 24565,68. 
eingeben. Statt SYS24513 kann das Bild eventuell mit 
SYS24518 aufgerufen werden. 

Verschwinden des Bildes: 

POKE 53272,21 
POKE 56576,151 
POKE 53265,27 
POKE 53270,200 

(Frank Hoffmann/ef) 


14. Holzauge sei wmlisam 


Wer kennt das nicht; Ein Programm gibt keinen Mucks 
mehr von sich. Ist es jetzt abgestürzt oder hängt es in Ir¬ 
gendeiner Berechnungsschleife? 

Das Programm »Freemem« (Listing 22) zeigt interrupt¬ 
gesteuert den Stackpointer und den freien Basic-S^ölcHeK- 
in der rechten oberen Bildschirmecke. Vor allem die Anzei¬ 
ge des Stackpointers, die bei einem normalen Programm¬ 
lauf ständig wechselt, ist eine tolle Einrichtung zum Auste¬ 
sten von kritischen Programmen. Auch können Sie mit Hilfe 
der Anzeige des freien Speichers nun jederzeit feststellen, 
wann der Computer gerade eine Garbage-Coilection durch¬ 
führt. 

»Freemem« wird mit SYS 53100 gestartet und mit < RUN/ 
STOP RESTORE> wiederabgeschaltet. 

(Henning Müller-Zauieck/ef) 


Listing 22. 
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e6 
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: 69 30 2c e9 09 09 80 9d 
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15. Übersichtliche Programme 


Das Basic des C64 hat einen Nachteil: Sie können nicht, 
wie in anderen Programmiersprachen üblich, Basic-Zeilen 
durch Einrücken übersichtlicher gestalten. 


Ein Beispiel: 

10 REM SO WAERE ES DOCH SCHOEN, ODER? 

20 PRINT CHR$(l47) 

30 FOR Y=1 TO 5 
40 FOR X=1 TO 10 
50 PRINT X,Y 

60 NEXT X 
70 NEXT Y 

Durch die Einrückungen erhöht sich natürlich die Les¬ 
barkeit des Programms, vor allem innerhalb von Schleifen. 
Wenn Sie aber das Listing genauso wie es oben steht ein¬ 
tippen, ignoriert der Computer leider die Leerzeichen in 
den Zeilen 40 bis 60. Durch einen Tfick läßt sich dies umge¬ 
hen: Tippen Sie »POKE 131,0«, bevor (!) Sie mit dem Einge¬ 
ben des Programms beginnen. Dadurch wird eine Maschi¬ 
nenroutine im Speicher Ihres C64 verändert, die normaler¬ 
weise alle Leerzeichen am Anfang von Basic-Zeilen Igno¬ 
riert. 

Aber Vorsicht: Bevor Sie ein auf diese Weise geändertes 
Programm starten können, müssen Sie »POKE 131,239« 
eingeben. Dadurch wird die Änderung in der oben erwähn¬ 
ten Maschinenroutine wieder rückgängig gemacht. 

(Ralf Habermann/ef) 

Aber es gibt noch andere Methoden, diese Strukturie¬ 
rung auch ohne den genannten POKE-Befehl zu erhalten: 

1. Der Trick mit den Sonderzeichen 

Wenn das erste Zeichen in einer Basic-Zeile irgendein 
Sonderzeichen (zum Beispiel < SHIFT A>) ist, werden alle 
nachfolgenden Leerzeichen korrekt angenommen. Das 
Programm ist dann trotzdem lauffähig, und man kommt oh¬ 
ne POKEs aus. Sie tippen also die Zelle 30 so ein: 

JO j SHIFT A] (5SPACE] FOR X=1 TO 10 
ür^d’iTaSIi dem Eingeben von LIST erscheint: 

30 FOR X=1 TO 10 

Erklärung: Der C64 übergeht beim Eingeben von Basic- 
Programmen alle Sonderzeichen, die nicht innerhalb von 
Anführungszeichen stehen. Normalerweise würde er auch 
die nachfolgenden Spaces übergehen, was aber aufgrund 
einer kleinen Ungenauigkeit In der zuständigen Maschi¬ 
nenroutine nicht der Fall ist. Fazit: Die Leerzeichen am An¬ 
fang der Zeile bleiben bestehen und tragen zur besseren 
Lesbarkeit des Programms bei. (Dietmar Grabs/ef) 

2. Ganz einfach geht’s mit dem Doppelpunkt 

Und wem die oben genannte Methode noch zu umständ¬ 
lich ist, der verwendet einfach einen Doppelpunkt am An¬ 
fang der jeweiligen Zelle. Das könnte dann so aussehen: 
10 REM BEISPIEL-PROGRAMM 
20 FOR Y«1 TO 5 
30 : FOR X=1 TO 10 

40 : PRINT X,Y 

50 : NEXT X 

60 NEXT Y 

Dieser Trick hat den Vorteil, daß Sie in mit dem Doppel¬ 
punkt formatierten Zeilen auch noch Änderungen machen 
können (=editieren). Auch Leerzeilen ohne Inhalt zur struk¬ 
turierten Programmierung lassen sich damit erzeugen. 
Beispiel; 


170 END 

180 REM ENDE HAUPTPROGRAMM 
190 : 

200 REM ANFANG UNTERPROGRAMM 1 
210 A=B*10 


(Michael Kammer/Peter Gorgs/ef) 
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16. Schnelleres Basic mit Quickjump 


Geht Ihnen nicht auch manchmal der langsame Basic-In- 
terpreter auf die Nerven? Quickjump macht Ihre Basic- 
Programme bis zu fünfmal schneller - und das ohne Com¬ 
piler. 

Beim Bearbeiten eines Basic-Programms holt sich der 


Interpreter die zu bearbeitende Zeile aus dem Basic-Text 
und speichert sie in einen speziellen Puffer, Hier wird die 
Zeile Befehl für Befehl ausgeführt. Bei jedem Befehlswort 
muß der Interpreter in einer Tabelle die entsprechende Ein¬ 
sprungadresse im Betriebssystem suchen, was der erste 
Grund dafür ist, daß die Basic-Programme relativ langsam 
sind. Der zweite Grund ist der, daß bei jedem GOTO- oder 
GOSUB-Befehl die entsprechende Zeilennummer im 
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Listing 23. »Qulckjump» macht Ihren Basic-Programmen Beine. Es Ist mit dem MSE (siehe Seite 159) einzugeben 
und zu speichern. Gestartet wird »Quickjump« mit LOAD-"QUICKJUMP ",6,1:SYS 49152 <RETURN>. 
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Listing 24. Für all jene, die es genau wissen wollen: 
der Quelltext zu »Quickjump« k 
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Listing 24. Der Quelltext zu »Qulcklump" (Schluß) 


Basic-Text gesucht und die Verzweigungsadresse errech¬ 
net werden muß. Da sich der Interpreter diese Verzwei¬ 
gungsadresse nicht merkt, muß bei einem erneuten Aufruf 
die Zeilennummer wieder gesucht und die Verzweigungs¬ 
adresse neu berechnet werden und das kostet Zeit. Genau 
an dieser Stelle greift zum Beispiel der Austro-Compiler an. 
Beim Übersetzen wird jede Zeilennummer durch eine ab¬ 
solute Adresse ersetzt. Quickjump (Listing 23) arbeitet ähn¬ 
lich. Allerdings ist hier ein Compilerlauf übeillüssig. Beim 
Bearbeiten des Programms legt Quickjump eine Tabelle 
an. Immer dann, wenn der Interpreter auf einen GOTO- 
oder GOSUB-Befehl stößt, wird zunächst in der Tabelle 
nachgesehen, ob die Verzweigungsadresse schon exi¬ 
stiert. Existiert sie, verzweigt Quickjump ohne den Basic- 
Text zu durchsuchen. Existiert sie nicht, wird die'Zerfen- 
nummer ganz normal gesucht, die Verzweigungsadresse 
errechnet und an die Tabelle angehängt. 

Berechnet Zieladressen 

Ein Test mit einem Quicksort-Unterprogramm ergab das 
in Tabelle 1 dargestellte Ergebnis. Es macht die Effizienz 
der Routine deutlich. 

Quickjump belegt den Speicherbereich von $C000 bis 
$COEB. Im Anschluß daran wird die Tabelle angelegt und 
reicht bis $CFFF. 

Nach der Eingabe mit dem MSE wird das Programm mit 
LOAD"QUICKJUMP".8,1 geladen und mit SYS 49152 ge¬ 
startet. Zuvor sollte man jedoch NEW < RETURN > einge¬ 
ben, um die Basic-Zelger zu initialisieren. 


Programm am Anfang nach 300 REM-Zeilen 

Elemente: 

50 

50 

100 

normal: 

15s 

38s 

146s 

mit Quickjump: 

14s 

15s 

56s 


Tabelle 1. Geschwfndtgkeitsvergielch zwischen einem 
QuIcksort-Unterprogramm mit und ohne »Ouickjump« 

Nach einem Reset läßt sich Quickjump durch POKE 1,54 
erneut aktivieren. 

Die Speicherzelle 49155 enthält ein Flag für die Aufnah- 
- Tftw^erer Adressen in die Tabelle. Steht dort 0 (Standard), 
so W^^jn neue Adressen eingetragen. Bei jeder anderen 
Zahl wird die Liste lediglich durchsucht. Neue Adressen 
werden aber nicht hinzugefügt, Dies kann man zur Vermei¬ 
dung wenig relevanter Einträge benutzen. 

Die Speicherzellen 49156 und 49157 enthalten Low- und 
Highbyte der Tabellenendadresse. Sie kann beliebig geän¬ 
dert werden (Standard ist $D000). 

All jene, die Quickjump in ihre eigenen Programme ein¬ 
bauen oder genau wissen wollen, wie Quickjump funktio¬ 
niert, finden in Listing 24 den dokumentierten Quellcode. 
Assembliert wurde das Programm mit Profi-Ass von Data- 
Becker. Es läßt sich jedoch nach Änderung der Pseudo- 
Opcodes jeder beliebige Assembler, so zum Beispiel das 
Programm Hypra-Ass aus Sonderheft 35 einsetzen. 

(Detlef Keiler/ef) 


17. Joystick glasklar 


Durch diese kleine Maschinenroutine (siehe Listing 25) 
wird ein an den Computer angeschlossener Joystick abge¬ 
fragt und der Schaltzustand in einer Basic-Variablen (!) ab¬ 
gelegt. 

Der Aufruf erfolgt über »SYS 49152,Port-Nummer«, wo¬ 
bei für Port-Nummer entweder 1 oder 2 angegeben werden 
kann. Das Maschinenprogramm legt automatisch zwei Ba¬ 
sic-Variablen an. Je nach gewählter Port-Nummer lauten 
diese J1/J2 und F1/F2. Dabei enthält J1/J2 nach dem Aufruf 
die Position des Joysticks: 

5 1 6 
3 0 4 
7 2 8 

Die Variable F1/F2 enthält bei gedrücktem Feuerknopf 
den Wert 1, ansonsten 0. 
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Listing 25. 
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a5 

a9 

68 

85 

12 

Abfrage In 

c 060 ; 

; 7b 

68 

85 

7a 

60 

Of 

Oe 

Od 

91 

Maschinen¬ 

c068 ; 

; Ob 

07 

Oa 

06 

09 

05 

4a 

31 

7f 

sprache 

c070 

: b2 

30 

00 

22 

a5 

23 

69 

00 

98 
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Die Auswertung von J1/J2 könnte in Basic zum Beispiel 
so erfolgen: 

SYS 49152 ,1:0N J1 GOTO ... 

In Listing 26 sehen Sie den dokunpentierten Quelltext 
zum Programm. Er wurde mit dem Assembler »Profi-Ass« 
geschrieben. (Andreas Wendker/ef) 


.opt p4 

*■ $cOOQ 

I •*« «np.joy 

% 

i antfr«*« Mvndkar 
I 112 d 

% 2050 Hamburg 00 
I t«l. (040) 720 60 04 
I 

I au-fruf '“> «ym 491 S2| nuMvar 
t 

i Funktion -> Javatlck-abfrag« 

I 

1 

I 

gatbyta ■ «b79a tsahl (0-2S5> aus baclc^taxt holan 

|und in « uabargaban 

chkcom « faafd lauf koana pruafan 

faHaua « *a437 1 fahlarmatdüng ausgaban 

iBtvar * Sa9a5 tbaaic'-befahl lat baarbaitan 

( 

I joymtick''part-niiinnar aus basic-tBKt hol an« 

I M#artabarai cha' uabargruaf urtg 
laowia bastl Atmung ainsgar paranatar 

Start 


ok 


JonuA 


Svariaba *J1' bzM* ’J2’ baarbaitan 


i-> J« 

nach 

bvwegunqar 1 ch t unq 

Idaa joyaticks ainart wart von 0 bla 6 zuwaiaan 

1 

Ida 

•“j" 11 .büchstaba ■ “j" 


sta 

taxt |-> variabla haiaat nun J1 bzw. j2 


Id* 

S6320«x {wart daa joyatick-ragiatara holan 


ph* 

$und rattan 


and 

ttXOOOOllil (untara viar bita iaoliaran 


Idy 

•Q 

Joauch 

cotp 

varwar^y ^und alt allw war tan varglalchan 


baq 

found 


day 


f ound 

bpi 

ty« 

joauch 

14 anthaalt Jatzt dan wart« 


jar 

chkcom 

$ koama uabaraprIngen 

Jsr 

getbyte 

;fluinBBr das iayBtlck-par~ts holan 

dax 


ipruafen« ob zahl * i bzw. 2 

cpx 

*2 


bcc 

ok 


Idx 

•14 

;sonst fahlanmaldüng ausgaban 

jmp 

fehaua 

illegal quantity error 

iriK 


sja nach Joystick-port-dummer 

Ida 


sa mit ** 1 ** bzw. “2'* ladan und 

cpx 

•2 

;x auf Joystick-regLster 

bne 

jonuA 

(zeigen lassen 

Idx 

»0 


1 da 

• *•2" 

;oort-nufkter als 2 . buchataban 

ata 

taxt +1 

idaa variablan-naaens uabernehman 


|dar dar variabtan zugaMlasan «ardan soll 
iir «nlagan ivariabla anlaqan 
t 

iJatzt dia variabla 'fl* bzM. *f2' baarbaitan 
l'> Ja nach zustand das fauarknopfas O c»dar 1 zuwalaan 
1 

Ida t"f” {varlablan^iAwn ab t*Ht uab«nann*n 

ata taxt |in *fl* bctt. 'f 2 ' 

pla Ijeyatick'ragiStar suruackholan 

and »XOOOlOOOO |fauarkoopf--bit taoliaran 
CAtp ttO 

baq fauok sknöpf gadruackt 

Ida «1 

fauok aor »1 tbit 0 umdrahan« a anhaalt nun c^rgabn 


I 

iroutina zum anlagan dar varlablan 

f-> bai J 1 /J 2 Hird sia als untsrprograM aufgarufsni 

ibai fl7f2 ganz normal durchgagangan 

l-> in A muss dar spastara,wart dar varlablan atahan 


anlagan 


c)e 


laacli'cada dar zahl arAittaln 

ade 

•48 


sta 

taxtfS 

«ln ba«ic-~bafehl ab taxt ainfuagan 

Ida 

*7a 

ichrgat^zalgar rattan 

pha 



Ida 

*7b 


pha 



Ida 

•<taMt 

«ehrgat^^zai gar auf alganan bafahl 

ata 

•7a 

sab taxt richtari 

1 da 

•>taxt 


sta 

*7b 


Jsr 

latvar 

1 bafahl abarbaltan “> wartzuwalaung 

pla 


; chrgat<-zalgar auf altaa byta rlchtan 

ata 

<7b 


pla 



ata 

•7a 


rts 




l 

;allB dankbaren konbinationen dar viar baMegungsriehtungan 
idas Joysticks -> reihanfolga entspricht 
|den spaeteran variablan-vwrtan 
I 


.byteXOOOOllli }nicht bsi>«gt 
.brtaXCOOOlllO sehen 
.byte^^OOOOllOl luntao 
.byta^OOOOlOll ;links 
.bytar.OOOOOlll $ rechts 
•bytaKOOOOlOlO joban-links 
.byte<C 00000110 toban^'rechts 

.bytaXOOOOlOOl lunten-links 
•byteXOOOCOlOi sunten-rechts 


;basic-bafahl ji*0 

{-> varschluassalt zur bearbaitung 

I durch das batnabssystam 

)*> befahl wird Ja nach variable geaendart 
I 

taxt .asc "jl" Iplatz fuar variablan-naman 

.byta4b2 ibasie^tokan fuar 
.bytB4B, 0 Iplatz fuar argabni0*^4801 i'^coda 
fdie 0 kannzaichnat das bafahls-enda 


Listing 26. 

Der Quelltext zur Joystick-Abfrage 


18. Wie beim Atari ST - Vnrptr 


Mit Hilfe dieses Tricks haben Sie die Möglichkeit, die Spei¬ 
cherposition von Variablen festzustellen. In einigen Basic- 
Dialekten ist eine solche Routine unter dem Namen 
VARPTR implementiert. Unser C64 kann das auch, man 
muB es ihm nur entlocken. Zunächst ein paar Vorinforma¬ 
tionen zu der Art und Weise, wie der C64 Variablentypen 
kennzeichnet. 

Variablen werden unabhängig vom jeweiligen Typ immer 
in 7 Byte gespeichert. In den beiden ersten Byte befinden 
sich die beiden ersten Zeichen des Variablennamens (wes¬ 
halb dann auch nur diese beiden Zeichen zur Unterschei¬ 
dung herangezogen werden), die restlichen 5 Byte enthal¬ 
ten je nach Variablentyp unterschiedliche Informationen. In 
der Tabelle ist das verdeutlicht. 

Nun muB das Betriebssytem natürlich eine Möglichkeit 
haben, die Typen von Variablen zu unterscheiden, damit 



nichts Unvorhergesehenes mit ihnen geschieht. Variablen¬ 
namen dürfen ja nur aus ungeshifteten Buchstaben und 
Ziffern bestehen, es werden also in den beiden Byte des Va¬ 
riablennamens nicht alle Bits benötigt. Zur Typbestimmung 
zieht der C64 jetzt die beiden höchstwertigen Bits heran 
und begutachtet ihre Konstellation innerhalb der beiden 
Byte. Ist keins der höchstwertigen Bits gesetzt, so handelt 
es sich um eine Real-Variable, sind beide 1, dann folgt ein 
Integerwerl. Die Anordnung können Sie in der Tabelle 
nachlesen. 

Hier nun der Trick: 

2000 POKE 180, nl OR sl: POKE 181,n2 OR s2 
2010 POKE 69,PEEK(180): POKE 70,PEEK(181): 

SYS 45287 

2020 ad= PEEK(780)+256*PEEK(782) 

2030 RETURN 

In N1 und N2 werden die ASCII-Werte der beiden Na¬ 
menszeichen übergeben. Sollte kein zweites Zeichen exi¬ 
stieren, erhält N2 den Wert 0. S1 und S2 enthalten entweder 
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0 (dann ist das höchste Bit nicht gesetzt) oder 128 (höchstes 
Bit auf 1). Die Zeile 2000 verschmilzt diese Vorgaben und 
schreibt sie an eine Steiie, an der sie normaierweise vor der 
Gefahr sicher sein können, vom Betriebssystem geändert 
zu werden. DieZeiie2010 überträgt diese Werte dann in die 
Speichersteilen, die der Computer benutzt, um Variable 
ausfindig zu machen, weshalb in dieser Zeiie natüriich kei¬ 
ne Variabien mehr verwendet werden dürfen! Der SYS-Be- 
fehl führt in eine Systemroutine, die Variablen sucht oder 
neu anlegt. Sie liefert im Akku und im Y-Register des Pro¬ 
zessors die ermittelte Variablenadresse zurück, die in Zeile 
2020 an AD übergeben wird. Damit ist VARPTR für den C 64 
realisiert. (Arndt Dettke/ef) 

Dieser Itick läßt sich jedoch noch vereinfachen: 

Die Speicherstellen 71/72 enthalten die Adresse der ak¬ 
tuellen Variable. Um nun die Startadresse einer beliebigen 
Variable (hier z.B, A$) zu berechnen, geht man folgender¬ 
maßen vor: 

2000 AS=A$A 

2010 POKE 180,PEEK (71): POKE ISl.PEEk (72) 

2020 AD=PEEK (lB0)+256fPEEK (181) 

In Zeile 2010 wird die Variable A$ aktualisiert, so daß ihre 


Typ 

Byte 1 

Byte 2 

Bytes 

Byte 4 

Byte 5. Byte 6 

Byte 7 

Real 

Erstes 

Zweites 

Exponent 

Mantisse 1 Mantisse 2 Mantisse 3 Mantisse 4 


Namens- 

Namens- 






zeictwn 

Zeichen 





Integer 

Erstes 

Zweites 

Wert 

Wen 

unbenutzt unbenutzt 

unbenutzt 


Namens- 

Namens- 

Lo-B/te 

Hi-Byte 




Zeichen 

Zeichen 





String 

Erstes 

Zweites 

String- 

Adresse 

Adresse unbenutzt 

unbenutzt 


Namens- 

Namens- 

ISnge 

Lo-Byte 

Hl-Byte 



Zeichen 

Zeichen 





FN 

Erstes 

Zweites 

Adresse 

Adresse 

Adresse Adresse 

Erstes 


Namens- 

Namens- 

des Aus- 

des Aus- 

des Platz- des Platz- 

Zeichen 


Zeichen 

Zeichen 

drucksLo 

drucks Hl 

haltersLo haltersHi 

nach 


Organisation der Variablentypen Im Speicher 


Startadresse vom Betriebssystem in die Speicherstellen 
71/72 eingetragen wird. Anschließend wird der Inhalt dieser 
Speicherstellen nach 180/181 kopiert und schließlich in die 
Variable AD übernommen. (Markus Hammer/ef) 


19. Kurz und effektiv - PRINT AT 


Sicher werden einige von Ihnen einwenden, daß man eine 
PRINT AT-Routine auch in Basic programmieren kann. Da 
haben Sie in gewisser Weise auch recht. Aber kann man in 
Basic noch von kurz und benutzerfreundlich sprechen? 
Diese andauernden Unterprogrammaufrufe verbrauchen 
auf die Dauer auch sehr viel Speicher (vom Unterpro¬ 
gramm selbst ganz zu schweigen). 

Also muß ein Assembler her! 

Da das Betriebssystem des C64 einige hilfreiche Routi¬ 
nen zum Programmieren bietet, dürfte eine solche PRINT 
AT-Routine nicht schwer zu erstellen sein. Die Syntax soll 
dabei wie folgt aussehen: 

SYS 49152, Spalte, Zeile, "text" 

Hiervorab eine Liste der erforderlichen Betriebssystemrou¬ 
tinen: 

$AAA0: PRINT-Routine des Betriebssystems 
$AEFD: Prüft auf Komma hinter dem SYS-Befehl 
$B7EB: Holt die Zahlen vor und hinter dem zweiten 


100 
150 
200 
210 
220 
230 
240 
250 
260 
270 
280 
300 

320 
330 


-.00 "PRlNT-flT,P,W' 
-.BA «C000 

J8Ä »AEPD 
J6R <B7EB 
CPX #25 

~ BCS ERRG 

LDA *14 
cnp «40 
BCS ERRO 
TAV 

JSR SFFF2 
JSR 4AEFD 
JMR «AAAO 
JflP *8246 


lAUF KOMMA PRLiEFEN 
«ZAHLEN HOLEN 

«NENN X-REB. > ODER 25, DANN 
SOMR ERRROR 


-ERRO 

-.EN 


«WENN AKKU > ODER 
«JHP ERROR 

«CURSOR SETZEN 
«KOMMA TESTEN 
I TEXT AUSGEBEN 
jILLE0AL QUANTITV 


40. DANN 


Listing 27. Quellcode zum PRINT AT-Befehl 



Name 

prlnt- 

at 




oOOO oOld 

Listing 28. 

cOOO 

20 

fd 

ae 

20 

eb 

b7 

eO 

19 

01 

»PRINT AT« - 

cOOB 

bO 

10 

a5 

14 

c9 

28 

bO 

Oa 

61 

kurz und 

oOlO 

a8 

20 

fO 

ff 

20 

fd 

ae 

4o 

4a 

komfortabel 

c018 

aO 

aa 

4c 

48 

b2 

cO 

89 

4a 

96 


Komma 

$FFF0: Positioniert den Cursor 
Zunächst muß überprüft werden, ob hinter dem SYS- 
Befehl ein Komma steht, Das geschieht mit JSR $AEFD. 
Nun sind die beiden Positionsangaben (für Zeile und Spal¬ 
te) aus der Befehlszeile zu holen. Dazu ist die Befehlsfolge 
»JSR $B7EB (Zahlen holen), TAY« erforderlich. Nun sind die 
Zahlen In den richtigen Registern, und der Cursor kann mit 
JMP $FFF0 positioniert werden. Da ein drittes Komma fol¬ 
gen soll, hinter dem der auszugebende Text steht, Ist noch 
einmal die Routine zum Prüfen auf das Komma aufzurufen 
(JSR $AEFD). JMP $AAA0 verzweigt schließlich in die 
PRINT-Routine des Betriebssystems und gibt den angege¬ 


benen Text auf dem Bildschirm aus. Sollte man höhere 
Werte als erlaubt eingeben (Spalte > 39 oder Zeile > 24), 
stürzt der C64 ab. Um das zu vermelden, wurden in das 
Programm noch zwei Vergleichsbefehle, zwei Sprungbe¬ 
fehle und natürlich ein Unterprogramm, In das Im Ernstfall 
verzweigt wird, eingebaut. Das Unterprogramm gibt bei fal¬ 
schen Parametern einen »Illegal quantity error« aus. Um die 
Fehlermeldung auszugeben, wird die entsprechende 
Betriebssystem-Routine mit JMP $B240 angesprungen. 

In Listing 27 finden Sie den Quellcode zum PRINT AT- 
Befehl. Bel Listing 26 handelt es sich um das lauffähige 
Programm. Es ist mit dem MSE einzugeben. 

(Silvan Reinhold/ef) 


20. Der C64 spricht deutsch 


So ganz ernst ist Listing 29 (»GERMAN BASIC«) nicht ge¬ 
meint. Es handeit sich um ein Maschinenprogramm, das ai- 
le Basic-Wörter und Fehlermeldungen etc. in deutscher 
Sprache handhabt. Die meisten Wörter sind in der deut¬ 
schen Sprache länger als in der englischen, so daß stellen¬ 


weise Abkürzungen bei der Eingabe verwendet werden 
müssen. Hier die neuen Basic-Befehle: 


END • AUS 
INPUT « EIN 
RUN = LAUF 
REM = BEH 
WAIT = WARTE 
POKE = POK 


FOR . FUER NEXT . NASCHST DATA « WERT 

READ . LES LET - LASS GOTO = QEH 

IF = WENN RESTORE » ANFANG TO * BIS 
STOP » HALT RETURN = 2ÜRÜECK ON = MIT 
LOAD = LADE SAVE = SPEICHER OPEN = AUF 
PRINT * DRUCK CONT = WEITER CLR = LOE 
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CMD * KOH 
GET . HOL 
THEN » DANN 
OR = ODER 
RND =ZUF 
STR® = KET® 


SYS = RüF 
NEW = NEU 
NOT = NICHT 
INT = GNZ 
LOG = LN 
VAL = 2AH 


VERIFY = PRüEF 
GOSUB = UNTER 
STEP =» IN 
ABS = BTR 
PEEK = PEK 
CHR® = ZCH® 


CLOSE = ZU 
SPC = LEE 
AND = UND 
S{1R a WRZ 
LEN = LNG 
LEFT® = LI® 


RIGHT® = RE® MID® = MI® 

Das Programm wird durch LOAD "GERMAN BASIC",8,1 
geladen und durch RUN gestartet. Es belegt den Speicher¬ 
raum zwischen $801 und $C20. Gewöhnen Sie sich an die 
neuen Befehle? 

(C. Zwerschke/H. Ponnath/ef) 


Name : german baslc 0801 0o22 


0801 

: le 

08 

cl 

07 

9e 

32 

30 

38 

21 

0609 

: 30 

14 

14 

14 

14 

14 

14 

14 

25 

0811 

; 47 

45 

52 

4d 

41 

4e 

20 

42 

o5 

0819 

; 41 

53 

49 

43 

00 

00 

00 

78 

bO 

0821 

: aO 

00 

84 

fb 

e9 

aO 

85 

fo 

11 

0829 

; bl 

fb 

91 

fb 

o8 

dO 

f9 

e6 

84 

0831 

: fc 

a5 

fo 

09 

oO 

dO 

fl 

a9 

26 

0839 

1 eO 

65 

fo 

bl 

fb 

91 

fb 

c8 

If 

0B4i 

; dO 

f9 

e6 

fo 

dO 

f5 

b9 

b7 

7a 

0849 

; 08 

99 

9e 

aO 

b9 

b7 

09 

99 

8a 

0851 

; 9e 

al 

b9 

a3 

Oa 

99 

8a 

a2 

7f 

0859 

: 08 

dO 

eb 

a9 

69 

8d 

66 

a4 

9f 

0861 

; a9 

77 

8d 

75 

a4 

8d 

ac 

el 

05 

0869 

: a9 

72 

8d 

o3 

bd 

a9 

49 

Sd 

90 

0871 

; 70 

e4 

b9 

a3 

Ob 

99 

be 

fO 

90 

0879 

: c6 

00 

68 

dO 

f5 

aO 

09 

b9 

dl 

0881 

: Oa 

Oe 

99 

a6 

ec 

88 

dO 

f7 

Ib 

0889 

; a9 

13 

ed 

bd 

f5 

a9 

4a 

ed 

08 

0891 . 

: d3 

f5 

a9 

59 

8d 

d9 

f5 

a9 

o7 

0699 : 

: 4f 

Sd 

94 

f6 

a9 

60 

8d 

51 

29 

08al : 

; f7 

a9 

18 

ed 

Id 

f8 

a9 

2o 

bd 

08a9 : 

; 8d 

3e 

f8 

a9 

e5 

85 

01 

6d 

72 

08bl ; 

; d6 

fd 

58 

6o 

00 

aO 

41 

55 

de 

08b9 ; 

; d3 

46 

55 

45 

d2 

4e 

41 

45 

de 

08el : 

: 43 

48 

53 

d4 

57 

45 

52 

d4 

2a 

08c9 ; 

; 45 

49 

4e 

a3 

45 

49 

ee 

44 

Id 

08dl ; 

: 49 

cd 

4c 

45 

d3 

4c 

41 

53 

06 

06d9 ; 

: d3 

47 

45 

c8 

4c 

41 

55 

c6 

6c 

08el ; 

: 57 

45 

4e 

ce 

4l 

4e 

46 

41 

6a 

08e9 ; 

; 4e 

c7 

55 

4e 

54 

45 

d2 

5a 

a9 

oefi ; 

: 55 

52 

55 

45 

43 

cb 

42 

45 

93 

08f9 : 

: cd 

48 

41 

4c 

d4 

4d 

49 

d4 

4b 

0901 ; 

; 57 

41 

52 

54 

05 

4c 

4l 

44 

64 

0909 ; 

: c5 

53 

50 

45 

49 

43 

48 

45 

8f 

0911 ; 

: d2 

50 

52 

55 

45 

q6 

44 

45 

71 

0919 ; 

: c6 

50 

4f 

ob 

44 

52 

55 

43 

07 

0921 ; 

: 4b 

a3 

44 

52 

55 

43 

eb 

57 

e7 

0929 ; 

: 45 

49 

54 

45 

d2 

4o 

49 

53 

2c 

0931 ; 

1 d4 

4c 

4f 

05 

4b 

4f 

cd 

52 

c3 

0939 ; 

: 55 

o6 

41 

55 

o6 

5a 

d5 

48 

13 

0941 ; 

; 4f 

CO 

4e 

45 

d5 

54 

41 

42 

bo 

09*9 ; 

: aS 

42 

49 

d3 

46 

ce 

4c 

45 

76 

0951 : 

: 45 

aS 

44 

41 

4e 

ce 

4e 

49 

4b 

0959 : 

: 43 

48 

d4 

49 

oe 

ab 

ad 

aa 

75 

0961 : 

: af 

de 

55 

4e 

o4 

4f 

44 

45 

01 


0969 ; 

; d2 

bo 

bd 

be 

53 

47 

ce 

47 

la 

0971 : 

: 4e 

da 

42 

54 

ä2 

55 

53 

d2 

12 

0979 ; 

: 46 

52 

o5 

50 

4f 

d3 

57 

52 

f9 

0981 ; 

: da 

5a 

55 

o6 

4c 

ce 

45 

58 

b7 

0989 ; 

; dO 

43 

4f 

<ä3 

53 

49 

ce 

54 

ac 

0991 : 

; 41 

ce 

4l 

54 

ce 

50 

45 

cb 

30 

0999 ; 

: 4c 

4e 

o7 

4b 

45 

54 

a4 

5a 

a6 

09al ; 

; 41 

c8 

41 

53 

o3 

5a 

43 

46 

ae 

09a9 ; 

: a4 

4c 

49 

a4 

52 

45 

a4 

4d 

d7 

09bl ; 

; 49 

a4 

47 

45 

c8 

00 

5a 

55 

67 

09b9 ; 

; 20 

56 

49 

45 

4c 

20 

46 

49 

71 

09ol ; 

; 4o 

45 

d3 

46 

49 

4o 

45 

20 

ba 

09o9 ; 

; 4f 

46 

46 

45 

ce 

46 

49 

4c 

52 

09dl ; 

; 45 

20 

5a 

d5 

46 

49 

4o 

45 

e2 

09d9 ; 

; 20 

4e 

49 

43 

48 

54 

20 

47 

11 

09el ; 

: 45 

46 

55 

4e 

44 

45 

oe 

4b 

a9 

09e9 ; 

; 45 

49 

4e 

20 

47 

45 

52 

4l 

d5 

09fl ; 

; 45 

d4 

4b 

45 

49 

4e 

20 

45 

2e 

09f9 ; 

: 49 

4e 

47 

4l 

42 

45 

20 

46 

bf 

OaOl ; 

: 49 

4c 

o5 

4b 

45 

49 

4e 

20 

63 

0a09 ; 

: 4l 

55 

53 

47 

4l 

42 

45 

20 

2e 

Oall ; 

: 46 

49 

4c 

o5 

4b 

45 

49 

4e 

68 

0al9 ; 

: 20 

46 

49 

4o 

45 

4e 

4l 

4d 

9f 

0a21 ; 

; c5 

49 

4c 

4c 

45 

47 

4l 

4o 

54 

0a29 ; 

: 45 

20 

47 

45 

52 

4l 

45 

54 • 

e6 

0a31 ; 

: 45 

4e 

55 

4d 

4d 

45 

d2 

4e 

83 

0a39 : 

: 4l 

45 

43 

48 

53 

54 

20 

4f 

ee 

0a4l ; 

: 48 

4e 

45 

20 

46 

55 

45 

d2 

dO 

0a49 ; 



,55 

56 

0a51 ; 

; 52 

55 

45 

43 

4b 

20 

4f 

48 

8b 

0a59 : 

: 4e 

45 

20 

55 

4e 

54 

45 

62 

3f 

0a6l ; 

: 45 

4e 

44 

45 

20 

44 

45 

52 

65 

0a69 ; 

; 20 

57 

45 

52 

54 

c5 

4o 

4c 

Oe 

0a71 ; 

; 45 

47 

41 

4c 

45 

20 

47 

52 

4b 

0a79 ; 

: 4f 

45 

53 

53 

o5 

55 

45 

42 

4b 

OaSl ; 

; 45 

52 

4c 

41 

55 

e6 

53 

50 

a4 

0aS9 ; 

: 45 

49 

43 

48 

45 

52 

20 

56 

61 

0a91 ; 

; 4f 

4o 

CO 

55 

4e 

44 

45 

46 

8d 

0a99 ; 

; 49 

4e 

2e 

20 

41 

55 

53 

44 

2e 

Oaal : 

: 52 

55 

43 

ob 

4c 

4c 

45 

47 

b3 

08a9 : 

: 41 

4c 

45 

52 

20 

49 

4e 

44 

ba 

Oabl ; 

: 45 

d8 

55 

4d 

44 

49 

4d 

45 

bO 

0ab9 ; 

; 4e 

53 

49 

4f 

4e 

2e 

20 

46 

50 

Oaol : 

: 45 

4a 

o4 

44 

49 

56 

49 

53 

f9 

0ao9 : 

: 49 

4f 

4e 

20 

44 

55 

52 

43 

10 

Oadl : 

; 48 

20 

4e 

55 

4o 

00 

4o 

4o 

5d 

0ad9 ; 

: 45 

47 

41 

4c 

45 

52 

20 

4d 

9e 


Oael : 

; 4f 

44 

55 

d3 

4c 

4c 

45 

47 

ed 

0Be9 : 

; 41 

4c 

45 

52 

20 

54 

59 

dO 

98 

Oafl 1 

: 4b 

45 

54 

54 

45 

20 

5a 

55 

eS 

0af9 ; 

; 20 

4o 

41 

4e 

o7 

46 

49 

4c 

o6 

ObOl ; 

: 45 

20 

44 

41 

54 

45 

ce 

46 

c7 

0b09 ; 

■ 4f 

52 

4d 

45 

4c 

20 

5a 

55 

57 

Ob 11 ; 

; 20 

4c 

41 

4e 

o7 

47 

45 

48 

ce 

Ob 19 ; 

; 54 

20 

4e 

49 

43 

48 

54 

20 

42 

0b21 1 

: 57 

45 

49 

54 

45 

d2 

55 

4e 

d5 

0b29 1 

; 44 

45 

46 

49 

4e 

2e 

20 

46 

2e 

0b31 ; 

: 55 

4e 

4b 

54 

49 

4f 

ce 

50 

f6 

0b39 ; 

; 52 

55 

45 

c6 

4c 

4l 

44 

c5 

cb 

0b4l ; 

: 9e 

Bl 

ab 

al 

b5 

al 

bc 

al 

6d 

0b49 ; 

; of 

al 

da 

al 

eb 

al 

fc 

al 

d7 

ObSl ; 

; 09 

a2 

If 

a2 

30 

a2 

36 

a2 

fe 

0b59 1 

: 48 

a2 

56 

a2 

65 

a2 

6e 

a2 

47 

0b6l : 

; 7b 

b2 

6c 

a2 

9b 

a2 

ab 

a2 

57 

0b69 : 

; be 

a2 

CO 

b2 

d8 

a2 

e5 

a2 

7f 

0b71 ; 

; ef 

a2 

fd 

a2 

Oe 

a3 

If 

a3 

47 

0b79 ; 

; 24 

a3 

85 

a3 

Od 

4f 

4b 

Od 

d7 

0b81 ; 

; 00 

20 

20 

46 

45 

48 

4c 

45 

b5 

0b89 ; 

; 52 

00 

20 

49 

4e 

20 

00 

Od 

Od 

0b91 ; 

: Oa 

46 

45 

52 

54 

49 

47 

2e 

63 

0b99 ; 

; Od 

Oa 

00 

Od 

Oa 

52 

2f 

53 

e4 

Obal ; 

: 00 

aO 

45 

2f 

41 

20 

46 

45 

el 

0ba9 ; 

; 48 

4c 

45 

52 

a3 

Od 

53 

55 

4e 

Obbl ; 

: 43 

48 

45 

aO 

4e 

41 

43 

48 

Oa 

0bb9 ; 

; aO 

Od 

44 

52 

55 

45 

43 

4b 

5e 

Obel ; 

; 20 

50 

4c 

41 

59 

20 

4l 

4d 

7b 

0bc9 : 

; 20 

42 

4l 

4e 

o4 

44 

52 

55 

87 

Obdl : 

: 45 

43 

4b 

20 

52 

45 

43 

4f 

8a 

0bd9 : 

: 52 

44 

20 

55 

4e 

44 

20 

50 

28 

Obel ; 

; 4c 

41 

59 

20 

4l 

4d 

20 

42 

ac 

0be9 : 

; 41 

4e 

c4 

Od 

4c 

41 

44 

c5 

90 

Ob fl ; 

; Od 

53 

50 

45 

49 

43 

48 

45 

bf 

0bf9 ; 

; 52 

aO 

Od 

50 

52 

55 

45 

46 

5a 

OeOl ; 

; c5 

Od 

47 

45 

46 

55 

4e 

44 

98 

0c09 ; 

: 45 

4e 

4o 

4l 

o4 

Od 

4c 

41 

19 

Ooll ; 

: 55 

46 

Od 

00 

00 

00 

00 

00 

cd 

0ol9 ; 

: 00 

00 

00 

00 

00 

00 

00 

4c 

b2 

0o21 ; 

: 45 

ce 

2e 

od 

41 

4e 

4e 

20 

13 


Usting 29. 

Nicht ganz erat gemeint Ist 

»GERMAN BASIC», 

das mit dem MSE einzugeben Ist 


21. Unverwundbar 


“TELEGAME CHEAT« (Listing 30) ist ein kurzes Basic-Pro- 
gramm, das einen »Virus« in den C64 pflanzt, der ihn un¬ 
empfindlich gegen Sprite-Kollisionen macht. Dadurch er¬ 
halten Sie bei Spielen mit einer Sprite-Spielfigur (Raum¬ 
schiff, Pacman und so fort) die Unverwundbarkeit: Ohne 
Probleme können Sie jetzt durch alle Räumlichkeiten des 
Spiels laufen, fliegen oder schwimmen. Alle Widerwärtig¬ 
keiten wie Laserstrahlen, UFOs und Monster sind für Sie 
praktisch Luft geworden, und lange Spiele-POKE-Listen 
werden nahezu überflüssig. 

TELEGAME CHEAT wird mittels RUN gestartet, dann 
wird das Spiel wie üblich geladen und gestartet. Keine Pro¬ 
bleme hat TELEGAME CHEAT mit den »Oldies« unter den 


Spielen, Modernere Spiele könnten dadurch, daß sie su¬ 
perlang und auf komplizierte Weise komprimiert sind, even¬ 
tuell Schwierigkeiten bereiten. 

(C. Zwerschke/H. Ponnath/ef) 


le 

REM 

**»«*•«**•»*<«*•«*«**** 

<067> 

n 

REM 

« 

* 

<e9b0> 

12 

REM 

* TELEGAME CHEAT 

* 

<039> 

13 

REM 

* 

* 

<0ä2> 

14 

REM 

* CDMMDDORE 64 

* 

<149> 

13 

REM 

* 

• 

<064> 

Ib 

REM 

* CH. ZWERSCHKE 1985 

« 

<215> 

17 

REM 

* 

« 

<066> 

18 

REM 

*#**#»*»**#•♦♦*♦#****» 

<075> 

19 

REM 



< 0 ai> 


LIstIng 30. »TELEGAME CHEAT« überlistet Spiele 
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20 i 

»=0;FOB I»679 TO 765;READ J 

<208> 

30 S 

5“S+J;POKE I,J:NEXT 

<0a7> 

40 IF SO13560 THEN PRINfFEHLER I " ;END 

<159> 

SB POKE &B0,PED<(S16>9POKe 681,PEEK(B17) 

<021> 

60 POKE 816,679 AND 2SStP0KE 817,679/256 

<092> 

70 PRINT; PRINfTELEßAME CHEAT 1 " 

<193> 

100 

DATA 

32,165,244,176,81,132 

<I31> 

101 

DATA 

233,169,54,133,1,160 

<163> 

102 

DATA 

0,132,251,169,8,133 

<046> 

103 

DATA 

252,177,187,201,36,240 

<070> 

104 

DATA 

54,160,0,177,251,201 

<009> 

IBS 

DATA 

173,208,32,200,177,251 

<134> 

106 

DATA 

201,30,240,4,201,31 

<130> 

107 

DATA 

208,21,200,177,251,201 

<230> 

lOB 

DATA 

208,208,14,169,234,145 

<I50> 

109 

DATA 

251,136,169,0,145,251 

<16l> 

110 

DATA 

136,169,169,145,251,230 

<i90> 

111 

DATA 

251,200,2,230,252,165 

<1Z4> 

112 

DATA 

252,197,253,144,204,240 

<173> 

113 

DATA 

202,169,55,133,1,164 

<eB0> 

114 

DATA 

253,24,96 

<01S> 

Listing 30. (Schluß) 



22. LIST gestoppt 


Die letzte veröffentlichte Routine zum Stoppen der Listing- 
Ausgabe, hatteeine Länge von 40 Byte und mußte mit 
geladen werden, worauf die Programmzeiger geändert 
wurden. Was ist aber zu tun, wenn eine Routine zum Anhal¬ 
ten des Listings nach dem Laden eines Programms ge¬ 
brauchtwird? Aus dieser Zwangslage entstanden folgende 
BasiC'Zeilen, die im Direktmodus eingegeben werden: 

0 DATA 174, 141 , 2, 202, 240, 250, 170, 76, 26, 

167, <RETURN> 

FORA = 320 TO 329 : READ A: POKE I, A: NEXT: - - 

POKE 774, 64: POKE 775, 1 <RETÜRN> 

0 <RETURN> 

Der LISTT-Vektor in den Speicherstellen 774 und 775 wird 
auf die Adresse 320 gestellt, ab der ein Maschinensprache¬ 
programm von 10 Byte Länge liegt. Wenn beim Listen eines 
Programms die Taste <SHIFT> gedrückt wird, durchläuft 
das Programm eine Schleife und stoppt den LIST-Vorgang. 
Zum Abschalten von LIST-Hold sind folgende POKE-Be- 
fehle einzugeben: 

POKE 774,26:P0KE 775,167 
Listing 31 zeigt den Quelltext der Routine. 

(H. zur Nieden/ef] 


Die Funktionsweise von Auto-lnput ist ebenso einfach 
wie genial: Um nach Ablauf einer vorgegebenen Zeit ein 
»Ausbrechen« aus der Eingabe in Basic zu ermöglichen, 
erfolgt diese über den Get-Befehl. Die Bedeutung der ein¬ 
zelnen Schritte ist in Tabelle 2 dokumentiert. 


Zelle 

Funktion 

1000 

Zurücksetzen von NA$ 

(geschieht vor jeder neuen Eingabe) 

1010 

Ausgabe des Cursors, ZurOcKsetzen der Uhr aut 

Null (geschieht bei jedem Tastendruck) 

1020 

EIngabewarteschlelfe: Ist die In TM vorgegebene 

Zelt abgelauten, wird die Schleife verlassen 

1030 

Keine Eingabe (> Zelt abgelauten) oder 
<RETURN> (- Eingabe abgeschlossen) führen 
zum Überspringen der Zeilen 1040 bis 1060 

1040-1050 

Vorbeugen von Fehlbedingungen: Korrekte 
Ausführung von <DELETE> und Lahmlegen 
der übrigen Steuerfunktlonen (die ansonsten In 

NA$ übernommen und direkt ausgeführt würden; 
Beispiel <CRL/HOME>) 

1060 

Zulässige Zeichen werden In NA$ übernommen, 
anschließend Eingabe des nächsten Zeichens 

1070 

Löschen des Cursors. Ist die Eingabe noch leer, 
wird VO$ an NA$ Übergeben 

1080 

AbschluB der Ausgabe und Rückkehr ins 
Hauptprogramm 


Tabelle 2. So funktioniert Auto-lnput 

Vor dem Aufruf des Unterprogramms müssen den Varia¬ 
blen TM (maximale Wartezeit in Sekunden) und VO$ (Vor¬ 
gabe für den Fall, daß keine Eingabe erfolgt) die entspre¬ 
chenden Werte zugewiesen werden. Erfolgt nun Innerhalb 
der Zeit TM keine Eingabe, wird der vorgebenene Wert 
VO$, «»'onsten der eingebenene Wert an das betreffende 
Hauptprogramm in der Variablen NA$ zurückgegebenen. 
Bei der Eingabe von Zahlenwerten sind die Vorgaben im 
Stringformat (z. B. VO$= "123") an das Unterprogramm zu 
übergeben und nach der Rückkehr ins Hauptprogramm mit 
derVAL-Funktion insZahlenformatzu wandeln (siehe Zeile 
340). 

Listing 32 enthält neben der eigentlichen Routine, die bei 
Zeile 1000 beginnt, noch einige Zeilen, die Aufruf und Wir¬ 
kung der Routine verdeutlichen sollen. Für die Eingaberou¬ 
tine wurde ein stehender Cursor gewählt, um die Lauffähig¬ 
keit sowohl auf C64 und C128 als auch C16 und Plus/4 zu 
erreichen (Matthias Ullmann/ef) 


10 -Walt 

IBx S028d 1 

ahift-regiater 

20 - 

dax : 

-0, wann a)ilft 

30 - 

beq wait ; 

warten, wenn shift 

40 - 

tax ; 

Status wiedarherstellen 

50 - 

Jiap SaTla ; 

zur list-routine 

Listing 31. Kiein, aber fein: LiST-HOLD 


23. Wie von Geisterhand... 


... soll sich auch Ihr Computer künftig »selbst bedienen«, 
wenn er zu lange auf eine Eingabe warten mußte. 

Angenommen, Sie haben ein interessantes Programm 
geschrieben (z. B. eine Textverarbeitung) und möchten zei¬ 
gen, was dahinter steckt. So weit, so gut. Nun wird Ihr Pro¬ 
gramm kaum ohne Eingabe auskommen. Was aber ge¬ 
schieht, wenn der Computer auf etwas wartet und es nicht 
bekommt? Gar nichts, richtig. Das heißt, erwartet und war¬ 
tet- und wartet. Und wenn Sie ihm »Auto-lnput« (Listing 32) 
länger vorenthalten, wird er noch weiter warten müsseni 


100 

REM * AUTO-INPUT * 11/BB 

<024> 

110 

t 

<086> 

120 

REM- 

<130> 

130 

REM SIMULIERTES HAUPTPROQRAMM 

<032> 

140 

REM- 

<150> 

150 

» 

<126> 

160 

PRINT "<CLR>NAME{4SPACE>; "5 

<041> 

170 

TM-1 : VD*-"MATTHIAS ULLMANN" 

<003> 

180 

80SUB 1000 

<136> 

190 

: 

<1667 

200 

PRINT "CDOWNISTRASSE ; "j 

<eii> 

210 

TM-3 ; VO*«’'HELMHOLTZSTR. 53“ 

<169> 

220 

GOSUB 1000 

<176> 

230 

1 

<206> 

240 

PRINT "tDOWN>PL2/ORT ; "j 

<047> 

250 

TM-S : VO*»''6200 WIESBADEN 1" 

<077> 

260 

GQSUB 1000 

< 2 I 8 > 

270 

; 

<24B> 

280 

PRINT "{DOWN7TELEFDN ; "j 

<216> 

290 

TM=3 s VD*“"" 1 REM KEINE VORGABE 

<037> 

300 

GOSUB 1000 

< 002 > 

310 

; 

<0327 

320 

PRINT ■'<DDWN}CODENR. ; 

<119> 

Listing 32. »Auto-input« wartet nicht iange... 
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33B TM=1 s VD*="640ai3" s REM 2AHL <13‘?> 

340 BOSUB 1000 : NA=VAL(NA$) <229> 

350 ! <072> 

360 END <108> 

370 s <092> 

380 : <102> 

390 REM- <010> 

400 REM UNTERPROGRAMM <019> 

410 REM- <030> 

420 1 <142> 

1000 NA$*’"‘ <09B> 

1010 PRINT"CRVSON,SPACE,RVDFF>'’s t TI*-"00 

0000“ <lSi> 

1020 BET A* 8 IF A*-"" THEN A*-CHR*(0) t I 

F TI/60<TM THEN 1020 <233> 

1030 A-ASC(A«> i IF A-0 OR A-13 THEN 1070 <104> 

1040 IF A=20 AND NA*<>'"‘ THEN NA*»LEFT*(NA 

*,LEN(NA*)-1) 8 PRINT A*i <114> 

1050 IF A<32 OR A>90 THEN PRINT"{LEFT>"; s 

BOTO 1010 <052> 

1060 NA«>NA«-<-A* 8 PRINT"aEFT>";A«; 8 GOTO 

1010 <009> 

1070 PRINT CHR*(20)J s IF NA*»"” THEN NA#» 

VO* 8 PRINT NA*; <06B> 

1000 PRINT 8 RETURN <095> 


LIstIng 32. (Schluß) 


24. Gelöschtes Pragramm xurückholen 


Es passiert öfter, daß man versehentlich NEW eingibt oder 
einen Reset auslöst. Gibt es eine Möglichkeit, das gelösch¬ 
te Programm zu retten? (Jörg-Dieter Richter) 

Vorausgesetzt, daß Sie nach dem versehentlichen Lö¬ 
schen den Computer noch nicht abgeschaltet hab^tem^ 
weiteren Programmzeilen eingegeben und keine Nranaoieri' 
definiert haben, gibt es Hoffnung. 

Damit Sie in einem solchen Fall das Programm zurück¬ 
holen können, sollten Sie so bald wie möglich das unten ab¬ 
gedruckte Listing 33 mit dem MSE (siehe Seite 159) einge¬ 
ben und auf einer Diskette speichern. Im »Ernstfall" neh¬ 
men Sie diese Diskette und geben ein: 

LOAD "RENEW'.S.S 
NEW 

SYS 828 

Nach jedem dieser drei nacheinander einzugebenden 
Befehle ist die RETURN-Taste zu drücken. Jetzt steht das 
Programm wieder einsatzbereit im Speicher und sollte vor 
der weiteren Bearbeitung zunächst sicherheitshalber ge¬ 
speichert werden. (Nikolaus Heusler/ef) 


Basic-Interpreter des C64 nicht diesen nützlichen Befehl. 
Dieses nur 12 Byte lange Maschinenprogramm (Listing 34) 
erlaubt es, nun auch zu berechneten Zeilennummern zu 
springen. Im Gegensatz zu vielen anderen GOTOX-Routi- 
nen wird hierbei jedoch nicht das gesamte Basic-ROM ko¬ 
piert (Listing 35). Daher die sparsame Nutzung des eh so 
knappen Speicherplatzes. 

Aufgerufen wird das Programm mit »SYS 828, Zeilen¬ 
nummer-. 

Verwendete Kernel-Routinen: 

$AEFD prüft, ob ein Komma folgt. 

$AD8A holt einen Ausdruck (hier die Zeilennummer). 
$B7F7 wandelt den Ausdruck in Low- und High-Byte um. 
$A8A3 ist die Adresse des GOTO-Befehls. 

Ein kurzes Beispielprogramm: 

10 INPUT "ZAHL VON 0 BIS 2 EINGEBEN'',A 
20 X=A+40: PRINT"SIE HABEN" 

30 SYS 828,X 

40 PRINT"0 GEDRUECKT":END 

41 PRINT"! GEDRUECKT":END 

42 PRINT"2 GEDRÜECKT":END (Jörg Piller/ef) 


Name : goto x .obj 033o 0348 


033c : 20 fd ae 20 8a ad 20 f? 91 
0344 : b7 4c a3 a8 02 85 2d 85 2b 

Listing 34. Berechneter GOTO-Sprung In nur 12 Byte 
Länge. Bitte Eingabehinweise auf Seite 159 beachten. 


100 ; 

110 ; eOTO X 

' 1^'; AUFRUF : SYS 828, ZEILEMNUMMER 
140 ; 

200 .BA 828 
220 .£Q CKCOM =KAEFD 
230 .ED FRMNUM=QADSA 
240 .ED GOTO «CtASAS 
250 -EQ CHANeE=ißB7F7 
260 ; 

270 JSR CKCOM;KOMMA 7 
280 JSF^ FRMNÜM; ZEILE 
290 JSR CHANGE;FORMAT 
300 JMP BaTO;ZÜ GOTO 

Listing 35. Dokumentierter Quelltext zu Listing 34 


Listing 33. 

Name 

renew 





0330 0379 

»RENEW« dient 

0330 

aO 

01 

98 

91 

2b 

20 

33 

a5 

81 

zum zurück- 

0344 

18 

a5 

22 

69 

02 

85 

2d 

85 

fl 

holen von 

034c 

2f 

85 

31 

a5 

23 

69 

00 

85 

07 

gelöschten 

0354 

2e 

85 

30 

65 

32 

20 

Id 

a8 

ec 

Programmen. 

035c 

a2 

19 

86 

16 

20 

87 

a6 

a2 

Od 

Bitte dem MSE 

0364 

09 

bd 

6f 

03 

20 

d2 

ff 

ca 

b6 

(Seite 159) 

036o 

10 

f7 

60 

Od 

2e 

4b 

4f 

20 

eo 

eingeben. 

0374 

57 

45 

4e 

45 

52 

ff 

00 

00 

cf 


25. GOTO X 


Beim »strukturierten Programmieren« in Basic kann der Be¬ 
fehl GOTO X (Sprung zu einer variablen, berechneten Zei¬ 
lennummer) gute Dienste leisten. Doch leider versteht der 


26. 59390 Bytes frae 


Mit Double-Basic (Listing 36) können Sie zwei unabhängi¬ 
ge Basic-Programme im Speicher halten, die zusammen 
59390 Byte (!) lang sein können. Die Programme können 
38911 (PRG 1) und 20480 Byte (PRG 2) belegen. 

Durch <CTRL> + <F1> werden beide Programme 
gegeneinander ausgetauscht, während alte Variablen des 
jeweiligen Programmes erhalten bleiben. Wenn Sie also 
erst Programm 1 bearbeitet haben, können Sie nach 
<CTRL> + <F1 > mit Programm 2 fortfahren und umge¬ 
kehrt. Zusätzlich besitzt Double-Basic zwei andere, unge¬ 
wöhnliche Funktionen: 

1. <CTRL> + <-> verlangsamt die Ausführungszeiten 
des Computers. Der Grad der Verzögerung kann durch 
»POKE 53024,...« eingestellt werden (255 = größte Ver¬ 
zögerung). 
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2. <CTRL> + <RUN/STOP> hält den Computer an, bis 
SPACE gedrückt wird. Sehr praktisch für das Listen ei¬ 
nes Programmes: <CTRL> + STOP gedrückt halten 
und für jede nächste Zeile zusätzlich kurz SPACE 
drücken, 

Wenn Sie Double-Basic mit dem MSE abgetippt haben, 
speichern Sie es. Nach dem Laden mit »,8,1« und NEW kön¬ 
nen Sie Double-Basic mit SYS 52992 initialisieren (SYS 
52992 ist nach jedem < RUN/STOP RESTORE > notwen¬ 
dig!). Es stehen nun die beschriebenen Funktionen zur Ver¬ 
fügung. 

Hinweise: <CTRL> + <F1 > ist nur möglich, wenn sich 
der Computer im Direktmodus befindet. Während des Li- 
stens führt der Druck dieser Tastenkombination zum Ab¬ 
sturz! Also: erst STOP, dann <CTRL> + <F1 >. Da alle 
Variablen erhalten bleiben, kann ein Programm nach ei¬ 
nem Tausch mit CONT fortgeführt werden, wenn es vorher 
unterbrochen wurde, Es sei denn, das System hat seit dem 
letzten Tausch eine FOR-, NEXT- oder GOSUB-RETURN- 


Struktur bearbeitet. In diesem Fall reagiert der Computer, 
wenn er auf NEXT oder RETURN stößt, mit Unsinn, Fehler¬ 
meldungen oder gar Absturz. 

Einige Daten zu Double-Basic. Double-Basic ist in den 
System-Interrupt eingebunden und belegt den Speicher¬ 
bereich von $CF00 bis $D000, ist also verwendbar mit 
Turbo-Tape und SMON (ohne Disk-Monitor). 

In der Interrupt-Routine (ab $CF0B) wird auf die Betäti¬ 
gung einer der drei Tasten-Kombinationen geprüft. Wird 
der Programmtausch aufgerufen, erfolgt zuerst noch ein 
Test, ob sich der Computer auch im Direktmodus befindet. 
Daraufhin wird der Inhalt des Speichers von 2049 bis 22528 
mit dem des RAM-Bereichs unter dem ROM vertauscht. 
Genauso wird mit den Basic-Vektoren in den Zellen 43 bis 
66 (die unter anderem die Programmlänge und den freien 
Speicherplatz angeben) und einer Tabelle ab $CFD9 ver¬ 
fahren. Bevor in die normale Interrupt-Routine gesprungen 
wird, wird noch die Nummer des aktuellen Programmes an¬ 
gezeigt. (Julian Ziersch/ef) 
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27. Z und Y vertauscht 


Jeder, der einmal einen Schreibmaschinenkurs absolviert 
hat, hat sich auch schon über die Vertauschung der Tasten 
»Y« und »Z» auf der Tastatur des C64 geärgert. Vor allem, 
wenn man in einem Basic-Programm in PRINT-Zeilen ei¬ 
nen kleinen Text schreiben möchte, ist dieser Umstand sehr 
störend. Eine naheliegende, wenn auch sehr umständliche 
Methode ist, das Betriebssystem zu ändern. Es empfiehlt 
sich, diese Änderung dann in ein EPROM zu -brennen-*. 

Um die genannten Tasten in die deutsche Norm zu brin¬ 
gen, ist zuerst das Betriebssystem ins RAM zu kopieren 
(zum Beispiel mit einem Monitor), dann sind die folgenden 


POKEs einzugeben: 

POKE 60301,89 
POKE 60314,90 
POKE 60366,217 
POKE 60379,218 
POKE 60431,183 
POKE 60444,173 

Übrigens: Wenn das Betriebssystem ins RAM kopiert 
wurde, besteht im allgemeinen das Problem, diese Kopie 
dauerhaft eingeachaltet zu lassen. Wenn man nämlich 
< RUN/STOP RESTORE> drückt, wird das RAM aus- und 
das ROM wieder eingeblendet. Durch einen POKE 
64962,53 wird dies verhindert. (Stefan Zellin/ef) 


28. Gleichungen lösen 


Eine verbesserte Form für ein Programm, mit dem Glei¬ 
chungen gelöst werden können, stellen wir Ihnen mit Li- 
sting 37 vor. 

Die linke und rechte Seite der Gleichung werden wie in 
Ausgabe 7/87 des 64'er-Magazins mit »DEF FN« definiert 
(Zeilen 10 und 20). Dann wird die Eingabe eines Startwer¬ 
tes für die folgende Iteration verlangt. Das Programm bildet 
die Differenz der beiden Funktionswerte und berechnet 
dann mit Hilfe der «REGULA FALSI« (Nullstellenalgorith¬ 
mus) die Lösung der Gleichung. Einzelheiten finden Sie im 
Basic-Listing. 

Durch Vorgabe des Startwertes ist es auch möglich, 
mehrere Lösungen der Gleichung zu finden. 

(Markus Hagen/ef) 


le DEF FN fl<X)-X*X*X-2*X*X+7 <0<?B> 
20 DEF FN B(X>-X*X+7*X <043> 
30 OE-5tREM OENAUIQKEIT <1B7> 
40 DE-0.5/iatQE <025> 
50 INPUT''STARTWERT"; XA <254> 
60 X-KA <223> 
70 FA-FN A(X)-FN B(X) <004> 
B0 X-XA+e,] <e6<?> 
90 F-FN A(X>-FN B(X) <J91> 
100 XN=X-!XA-X)*F/<FA-F) <2Z6> 
110 D-ABS((X-XN)/(XN+DE)) <Z13> 
120 IF D<DE THEN 140 <008> 
130 X»XN:BOTO 90 <177> 
140 PR1NT''X-";XN <B72> 


LIstIng 37. Gleichungen lösen mit »gleichungen ll<> 
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29. 7.56 minus 1.56=? 


Ein Leser schickte uns einen Brief mit einem interessanten 
Problem, Er hatte ein Programm geschrieben und war dar¬ 
an fast verzweifelt; 

10 A=7.56;B=1.56:C=A-B 

20 IF 0=6 THEN PRINT "C IST 61":END 

30 PRINT "0 IST UNGLEICH 61" 

Die große Preisfrage: Was ergibt 7.56 minus 1.56? 6? 
Nicht für den C 64! Wer’s nicht glaubt, sollte das Programm 
ausprobieren. Aber damit nicht genug. 

Fügen Sie folgende Zeile ein: 

15 PRINT C 

LautdieserZeileenthältdieVariableC doch nur den Wert 
6 ohne irgendwelche Nachkommastellen, die man von un¬ 
serem »Rechengenie« ja inzwischen gewöhnt ist. 

Nun gut, ein INT-Befehl müßte das Problem lösen: 

17 C=INT(C) 

Wahrscheinlich werden Sie in leises Schluchzen verfal¬ 
len, wenn Sie das so geänderte Programm starten - C ist 
immer noch ungleich 6. 

Scherz beiseite. (Thomas Röder/ef) 

Hier ist die Lösung; 

Jeder, der mit Fließkomma-Zahlen arbeitet, muß wissen, 
daß die interne Fließkomma-Darsteliung in den wenigsten 
Computern exakt ist. Programmiersprachen (also auch Ba¬ 
sic) machen Rundungsfehler, wenn es Fließkomma-Zahien 
betrifft. Es wundert also nicht, daß (7.56-1.56) nicht gleich 
6 ist, denn in jedem der folgenden Schritte werden Run¬ 
dungsfehler gemacht (jedenfalls im 3. Schritt); 

1. A = 7.56 

2. B = 1.56 

3. C = A-B .■- 

»PRINT C« liefert zwar 6, aber »PRINT C-6 liefert 

nicht 0, sondern -1.86264515 E -09 (ungefähr 
-0.00000000186264515). 

C ist jetzt also ungefähr 5.99999999813735485 gewor¬ 
den. Indem man C = INT(C) hinzufügte, wird C also immer 
noch nicht gleich 6, sondern gleich 5, da die Nachkomma¬ 
stellen einfach abgeschnitten werden. 

Es ist besser, C zu runden; C = INT(C+ .5) 

Folgendes Programm ergibt das erwünschte Resultat; 
10 A=7.56:B=1.56:C=A-B 
15 C=INT(C+.5) 

20 IF 0=6 THEN PRINT "C IST 6l":END 

30 PRINT "C IST UNGLEICH 6" (E. Polak/ef) 


30. Wieviel Tage hat der Monat? 


ln vielen Anwendungen muß ein Tagesdatum (meist in der 
Form TTMMJJ - Tag Tag Monat Monat Jahr Jahr) eingege¬ 
ben werden. Besonders dann, wenn mit dem Datum weiter¬ 
gerechnet werden soll, muß es »richtig« sein - der 30. Fe¬ 
bruar kann schon einige Berechnungen ins Nirwana leiten. 
Nun kann der C64 nicht feststellen, obdas Datum inhaltlich 
richtig ist. Er kann aber durchaus prüfen, ob es sich bei dem 
eingegebenen um ein mögliches Datum handelt. Dabei 
muß zum Beispiel sichergestellt sein, daß sowohl Tag als 
auch Monat in den gültigen Intervallen liegen (1 bis Anzahl 
Tage des Monats und 1 bis 12), wobei ein eventuelles 
Schaltjahr noch zu berücksichtigen ist. 

Eine programmtechnische Lösung liegt zum Beispiel 

darin, die Tagesanzahl pro Monat in einem Integer-Array 
[1...12] festzulegen und bei einem Schaltjahr über eine IF- 
Abfrage den Februar-Tageswert um 1 zu erhöhen. 


Elegarrter ist aber ein geschlossener Ausdruck für die 
Anzahl Tagen (D) pro Monat als Funktion des Monats 
(M) und des Jahres (Y), wie er in dem folgenden Einzeller 
wiedengegeben ist: 

l'ö TNPL'T''’JAHR, M0NAT"iY,M:PRINT ((M -7 » INT 

((M - 1)./ 7)) AND 1) + 30 -r {M=2) « (2 + (Y / 4= 
INT(Y / 4))) 

Der Basic-Ausdruck ist derart allgemein gehalten, daß er 
auf allen Commodore-Computern vom PET 2001 bis hin 
zumCl28 laufen müßte. Auch eine Anpassung an GW-Ba- 
sic und das Amiga-Basic ist einfach, wenn der »AND«- 
Operator durch Leerzeichen vom Rest der Zeile getrennt 
ist:»... /7)) AND 1)...» und nicht, wie im Basic 2.0 bis Basic 
7,0 erlaubt»,.. /7))AND1),.,«, (Dr. rer. nat. H. Haigis/ef) 


31. Uhrzeit - Rechnung 


Nach 

DEF FN DZ(HR)=INT((INT(HR)+{HR-INT(HR))/.6)*10025.) 
100 

ergibt FN DZ(17.30) den Dezimalwert 17,5, der für Berech¬ 
nungen besser geeignet Ist. Die umgekehrte Berechnung 
erledigt 

DEF FN UR(DZ)=INT((INT(DZ)+(DZ-INT(D2))».6)»100f.5)/ 
100 

PRINT FN UR(17.25) 

ergibt die normale Uhrzeit 17,15 Uhr, welche durch 17,25 de¬ 
zimal dargestellt wird. (Alfred Poschmann/ef) 


32. Zahlen raten 


Dieses Programm zeichnet sich durch zwei Besonderhei¬ 
ten aus; seine Kürze und eine Erweiterung, die das Zahlen¬ 
raten schwieriger und interessanter macht. Doch hier 
gleich die Spielregeln: 

Der Computer denkt sich eine Zahl von 1 bis einschließ¬ 
lich 100, Der Spieler muß versuchen, diese Zahl zu erraten. 
Hierzu gibt der Spieler seinen Versuch ein. Der Computer 
gibt aus, ob der Versuch des Spielers größer oder kleiner 
als seine Zahl ist, beziehungsweise ob der Spieler die Zahl 
gefunden hat. Die ausgegebenen Zeichen haben folgende 
Bedeutungen: Ein »<« bedeutet, daß der Versuch des 
Spielers kleiner als die Zahl des Computers war, ein »>«, 
daß sie größer war und ein »=«, daß man die Zahl gefunden 
hat. Die Schwierigkeit ist, daß die zu erratende Zahl bei je¬ 
dem Versuch um 3 erhöht wird. Ein Beispiel: Der Computer 
denkt sich die Zahl 46. Der Spieler gibt als ersten Versuch 
50 an. Es kommt ein »>«. Beim nächsten Versuch ist je¬ 
doch nicht mehr die 48, sondern die 51 zu erraten (48+3). 
Die Angabe, daß die 50 größer als die zu erratende Zahl ist, 
stimmt jetzt also nicht mehr. Wenn die zu erratende Zahl 
größer als 100 geworden ist, so wird sie wieder auf 1 ge¬ 
setzt. 

Der Einzeller lautet: 

lx=int(rnd(l)«100)+l:fori=lto99;inputa:x=x+3+ 
(x>97)*100:prlntchr$(6l+sgn(a-x)) :lfa< >x 
thennext 

Der Einzeller ist mit den Abkürzungen für die Basic-Be- 
fehle einzugeben: 

lxlnt(rN(l)«100)+l:f01=lto99:lnputa:x=x+3+(x>97) 
*100:?cH(6l+sG(a-x)):ifa< >xtHnE 

Nach der Eingabe dieser Zeiie ist mit dem Cursor zwei¬ 
mal nach oben zu gehen und erst dann die Return-Taste zu 
drücken, da ansonsten die Zeile nicht übernommen wird. 

(Michael Patra/ef) 
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33. <Control > -Tricks für den 
Wechsel der Zeichensätze 


Sicherlich wissen die meisten C64-Fans, daß man durch 
Druck auf <SHIFT COMMODORE> zwischen Groß- und 
Kieinschrift (ohne SHIFT) hin- und herschalten kann. Inner¬ 
halb eines Basic-Programms läßt sich dieser Wechsel 
durch PRINT CHR$(14) und PRINT CHR$(142) erzwingen, 
Probiert es ruhig mal aus. 

Was aber, wenn in einem Programm mit PRINT CHR$(8) 
der Wechsel zwischen beiden Zeichensätzen abgeschaltet 
wurde und man aber wechseln will? <SHIFT 
COMMODORE> funktioniert nun nicht mehr! Jetzt müßte 
man eigentlich das laufende Programm mit < RUN/STOP> 
oder < RUN/STOP RESTORE> unterbrechen und mit 
PRINT CHR$(9) eintippen. Es geht aber auch ohne Pro¬ 
grammabbruch. Hierbei hilft die Control-Taste: Mit <CON- 
TROL l> (<CTRL> und <l> gleichzeitig drücken) er¬ 
laubt man wieder den Wechsel der Zeichensätze, mit 
< CONTROL H > verbietet man ihn wieder. Wohlgemerkt, 
ohne das laufende Programm zu verlassen. Ist der Zei¬ 
chensatz auf GroB/Grafik fixiert (<SHIFT COMMODO- 
RE> abgeschaltet), so kann man mit < CONTROL N> auf 
den Klein-/Gro6schrift-Zeichensatz wechseln. Ein Control- 
Code für den Wechsel zurück ist mir nicht bekannt, aber 
vielleicht findet ein Leser ja mehr heraus... Für Hinweise 
Sind wir jederzeit dankbar. Poschmann/ef) 



Bevor Sie 
verzweifeln, weil 
Sie nie das Ende der 
Spiele aus den Sonder¬ 
heften 37 oder 42 erreichen: 
In unserer kleinen Übersicht 
haben wir einige POKEs zusammenge¬ 
stellt, mit denen Sie fest jedes Spiel bewältigen. 


I n der Tabelle haben wir nur die Spiele aufgeführt, bei de¬ 
nen ein Trainer-POKE sinnvoll ist. Es fehlen also die 
Spiele, in denen beispielsweise zwei Spieler gegenein¬ 
ander antreten. Bei Spielen, die in gepackter Version auf 
den Spielediskelten vorliegen, ist ein Trainer-POKE mitun¬ 
ter fast unmöglich. Beispiel: »Omega Force One«. 

Die Eingabe der POKEs erfolgt entweder nach dem La¬ 
den des Programms im Direktmodus oder nach einem Ab¬ 
bruch des Spiels mit einem Reset. Hinweise finden Sie in 
der Übersicht. 

ELON: POKE 2714,165 ; unendlich viele Leben 
POKE 2063,0; nur ein Proton (funktioniert nur mit dem er¬ 
sten POKE) 

POKE 2070,234 ; immer nur ein Proton, keine Erhöhung 
POKE 2699,0 : Unsterblichkeit (Kollisionen sind unge¬ 
fährlich) 

Photon-Ranger: POKE 3200,173 ; kein Verlust der 
»Shields« 

POKE 3182,212 ; Kollisionen sind ungefährlich 


34. Diskette gesdiützt 


Gegen einfaches Kopieren gibt es so gut wie keinen 
Schutz, da heutzutage (fast) alles kopiert werden kann. Wir¬ 
kungsvoller ist aber ein Schutz gegen unberechtigten Zu¬ 
griff auf eine Diskette. Die folgende Zeile formatiert eine 
Diskette, die danach gegen unberechtigten Zugriff ge¬ 
schützt ist (dabei werden alle Daten auf der Diskette ge¬ 
löscht!): 

OPEN 1,8,15, ''M-W9''+CHR$(0)+CHR$(l): 

PRINT #l,"N:narae,ld'':CL0SEl 

Nun kann mit der leeren Diskette normal gearbeitet wer¬ 
den. Wird die Diskettenstation kurz aus- und eingeschaltet. 
Ist der Schutz aktiv. Die geschützte Diskette verhält sich 
jetzt, als wäre sie unformatiert. Wollen Sie wieder auf Ihre 
Daten zugreifen, so ändern Sie die Speicherzelle für das 
Kennzeichen des Sektor-Headers: 

OPEN 1,8,15,"M-W9"+CHR$(0)+CHR${1): 

CLOSE 1 

Was bedeutet aber ein Schutz, dessen Auflösung jeder 
kennt? 

Damit nur Sie Ihre Disketten lesen können, ist am Ende 
des OPEN-Befehls ein beliebiges Zeichen zu ergänzen 
(Ausnahme; CHR$(8)). Wer nun Ihre geschützten Disketten 
lesen möchte, hat im ungüstigsten Fall 255 Versuche! 

Möchte man wieder auf eine normale (ungeschützte) 
Diskette zugreifen, ist die Diskettenstation kurz aus- und 
wieder einzuschalten. (P. Schwendner/ef) 


Weawwi: POKE 2598,173 ; unendlich viele Leben 
POKE 2571,0 ; Kollisionen sind ungefährlich 
Mission X/Il: Mit Reset aussteigen: 

POKE 45904,255 ; 255 Leben 
SYS 9712 : neuer Spielstart 
Battlefield: mit Reset aussteigen: 

POKE 7301,0 ; unendlich viele Leben 
SYS 2115 ; neuer Start 

Omidar: POKE 15981,173 : unendlich viele Leben 
POKE 17771,0 ; unendlich viele Sprünge 
Astromania: POKE 3126,255 ; 255 Leben 
POKE 3886,173:POKE 6507,173: unendlich viele Leben 
(Diese POKEs werden nach dem ersten und vor dem zwei¬ 
ten RUN eingegeben) 

Astropanic: Mit <RUN/STOP> <RESTORE> oder 
mit Reset aussteigen: 

POKE 50309,173 ; unendlich viele Leben 
SYS 49152 ; neuer Start 

Sky Run: POKE 9667,169 ; unendlich viele Piloten 
Hanol+: POKE 4320,0;POKE 4322,0; Mogeln wird mög¬ 
lich 

Blockbusters: In das Basic-Programm (File »Blockbu¬ 
sters«) sollte folgende Basic-Zeile eingebaut werden, bevor 
das Programm mit RUN gestartet wird: 

1 POKE 16883,0 

Damit stehen unendlich viele Bälle (Schläger) zur Verfü¬ 
gung. 

Cookle-Eaters: POKE 2830,255: mehr Leben für jeden 
Spieler 

Spiralon: POKE 5417,173 ; unendlich viele Leben (dau¬ 
ernde Anzeige »7«) 

Waftles: POKE 6147,173 ; unendlich viele Aufklärer 
POKE 3507,212; Kollisionen mit Gegner und Objekt wer¬ 
den harmlos 

IcebafI: POKE 5144,173 ; unendlich viele Bälle 
(Nikolaus Heusier/ef) 
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Machen Sie mit! 


[äiJtäjl *-SONDERHEFT 


Diesen Beitrag im 64'er*Sonderheft fand ich 
besonders gut: 

Ausgabe:_/_ Seite;- 

Artikel;___ - 


Ich wünsche mir für eine der folgenden Ausgaben 
folgende Themen: 


Ich möchte an der redaktionellen Gestaltung 
mitarbeiten. . . ; 

Meine Vorschläge: 


Ich kann folgendefs) Programm(e) zur Veröffent¬ 
lichung anbieten: 


Dieses Problem habe ich: 
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Ich besitze einen: älteren C64_ neuen 06411_ 

0128 „ 0128D (im Blechgehäuse)_ 

mit Laufwerk(en): 1541 (alt)_ 1541 c ^_ 1541 II _ 

1570 1571 1581 _ 

Ich verwende einen Drucker_ 

mit 9 Nadeln_ 24 Nadeln_ 

Zusätzlich besitze ich einen 

Amiga PO Atari ST andere 

... 

Diese Note (1 bis 6, 1 am besten) gebe ich dem 
64'er>Sonderheft!_ 

Das sollte im 64'er<Sonderheft besser werden: 


Name;_ 

Alter:_Jahre 

Adresse:_ 


Telefon: 


IIIIMMIlIHHIIMIIIIIIIIIIIIIIlIHMMIHMMIMMMHMIIIIIIIHIIIlIHHMIIIIIlIHMIIIIIHIIIMIMIMIIIIIMHMHIlIHMIIIIIIIIIflMIMMUMMIIIMMMMIIM 

Bitte schicken Sie die Mitmachkarte 
in einem Briefumschlag 
an folgende Adresse: 

Markt & Technik Verlag AG 
Redaktion Sonderhefte 
Stichwort: Mitmachkarte 64'er 
Hans'Pinsel-Straße 2 
8013 Haar b. München 


X 


M» «miat dt 
Mft »niUAnet 


Schreiben Sie uns! 


























SPIELE-TIP 



N ur wer bet »Crillion« die Bewegung des Balles virtuos 
beherrscht, hat eine Chance, einen Highscore jen¬ 
seits der Grenze von 100000 Punkten zu erzielen. Ist 
das jedoch erst einmal geschafft, sind 25 Level zu wenig. 

Mit dem Editor »Crill-Edi« (Listing 1) lassen sich die vor¬ 
handenen Level auf einfachste Weise verändern, Ihren Vor¬ 
stellungen sind dabei keine Grenzen gesetzt. 

Da das Programm gepackt und mit einem Autostart ver¬ 
sehen ist, haben wir das Programm zum problemlosen Ab¬ 
tippen in einen anderen Speicherbereich verschoben. Ha¬ 
ben Sie das Spiel mit dem MSE (Seite 159) eingegeben und 
auf einer Diskette gespeichert, kann es noch nicht sofort 
gestartet werden. 

Um den Editor in ein startfähiges Programm zu wandein, 
benötigen Sie das Programm »Change Crill-Edi» (Listing 3), 
Geben Sie das Programm mit Hilfe des Checksummers 
ein. Nach dem Laden mit 

LOAD "CHANGE CRILL-EDI",8 <RETURN> 
und Start des Programms werden Sie zunächst aufgefor¬ 
dert, die Diskette mit »Crill-Edi» ins Laufwerk einzulegen. 


Nach einem beliebigen Tastendruck wird zunächst die ak¬ 
tuelle Startadresse (dezimal 8192) auf dem Bildschirm an¬ 
gezeigt. Bei diesem Wert handelt es sich um die Startadres- 
se des verschobenen Editors, der zum Abtippen in den Be¬ 
reich ab $2000 verlegt wurde. 

Anschließend wird diese Adresse automatisch auf den 
Originalwert 676 geändert. Sobald eine Meldung über die 
erfolgreiche Korrektur auf dem Bildschirm erscheint, läßt 
sich der Editor einwandfrei starten. 


Kurzinfo: Crill-Edi 


Programmart; Level-Editor für Crllllon 
Laden: LOAD "CRILL-EDI",8,1 
Start: Das Programm startet automatisch. 

Steuerung; Die Bedienung des Editors erfolgt über die Tastatur. 
Besonderheiten: Nach dem Abtippen des Programms muß vor 
dem Start mit dem Zusatzprogramm »Change Criil-Edi« die Start¬ 
adresse des Editors korrigiert werden. Beachten Sie bitte die ent¬ 
sprechenden Hinweise im Artikel. 

Programmautor: Oliver KIrwa 
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Da die Crillion-Version, die auf der Spielediskette des 
Sonderhefts 37 enthalten ist, ebenfalls gepackt und mit Au¬ 
tostart versehen ist, läßt sie sich nicht editieren. Sie finden 
daher als Listing 2 eine ungepackte Version unter dem Na¬ 
men »Crillion+«, die sich ohne Schwierigkeiten mit dem 
Editor bearbeiten läßt. 

Laden Sie den Editor mit 
LOAD '’CRILL-EDI'',8,1 <RETÜRN> 

Nach einer kurzen Ladezeit, in der der Bildschirm abge¬ 
schaltet wird, meldet sich das Programm mit einem kleinen 
Auswahl-Menü (Bild 1). 

Laden Sie zunächst mit < F3> das Spiel. Als Namen ge¬ 
ben Sie»Crillion+«ein. Nach erfolgreichem Laden läßt sich 
mit <F1 > der erste Level editieren (Bild 2). 

Mit der Taste <F3> kommen Siejeweilsein Level weiter, 
mit <F5> geht es zum vorherigen Level zurück. Kleiner 
Tip am Rande: Mit dieser Funktion lassen sich die vorhan¬ 
denen Level in Ruhe studieren. 

Mit < Fl > wechselt der kleine Pfeil, der unter der Anzei¬ 
ge »Modus- dargestellt ist, seine Richtung. Die Pfeilrich¬ 
tung bestimmt die Richtung, in der ohne Benutzung der 
Cursor-Tasten Steine gesetzt werden können. Diese Funk¬ 
tion erleichtert das Editieren über längere Strecken. Der 
Cursor, der aus einem kleinen Quadrat besteht, läßt sich 
wie gewohnt mit den Cursor-Tasten gezielt an jede Stelle 
des Spielfelds bewegen. 

Mit der Taste <F7> verlassen Sie jederzeit den Editier¬ 
modus. 

Die Farbe für ein zu setzendes Zeichen legen Sie mit 
<CTRL> und einer Zifferntaste von <3> bis <8> fest. 
Mit den Zifferntasten <1> bis <6> wählen Sie die ver¬ 
schiedenen Symbole aus, die an der entsprechenden Cur¬ 
sor-Position plaziert werden: 


läste 

Symbol 

1 

Ein Leerzeictien 

2 

Block ohne Aufschrift 

3 

Mauer-Block 

4 

Totenkopf-Block 

5 

Block mit Stern 

6 

Diskette 


Wenn Sie mit verschiedenen Farben arbeiten, nicht ver¬ 
gessen, zu jeder Farbe den entsprechenden Block mit 
Stern einzubauen. Nur beim Treffen des Balles auf einen 
solchen Block ändert der Ball seine Farbe. 

Ist ein Level komplett, wird noch die Startposition des 
Balles festgelegt. Dies geschieht mit den Cursor-Tasten bei 
gleichzeitig gedrückter CBM-Taste (die Taste mit dem Com- 
modore-Zeichen), Der Ball läßt sich mit den Cursor-Tasten 
über den ganzen Bildschirm bewegen, 


Kurzinfo: Crillion+ 


Programmart: Geschicklichkeits-Spiel 
Laden: Das Spiel wird vom Editor nachgeladen, läßt sich aber 
auch unabhängig mit »LOAD 'CRILLI0N4 'S,1< laden und mit 
RUN starten. 

Steuerung: Der Ball wird mit einem Joystick In Port 1 gesteuert. 
Programmautor: Oliver Kirwa 


Kurzinfo: Change Crill-Edi 


Programmart: Hilfsprogramm 
Uden:LOAD 'CHANGE CRILL-EDI'S 
Start: Nach dem Laden RUN eingeben 
Besonderheiten: Das Programm ändert automatisch die Start¬ 
adresse von >Crlll-Edl> von dezimal 8192 auf 676. Starten Sie das 
Programm, wenn Sie den Editor abgetippt und auf Diskette gespei¬ 
chert haben. Nach der Korrektur wird das Hilfsprogramm nicht 
mehr benötlgl. 


Neue Level lassen sich mit einem kleinen Trick problem¬ 
los testen. Haben Sie mit <F7> den Editier-Modus verlas¬ 
sen, können Sie mit einem erneuten Druck auf <F7> das 
Spiel mit den neuen Leveln testen. 

Den Start-Level (01,05,09,13,17oder 21) bestimmen Sie 
mit dem Joystick. Haben Sie beispielsweise Level 15 edi¬ 
tiert und wollen testen, ob es überhauptzu schaffen ist, soll¬ 
ten Sie wie folgt Vorgehen: 

In Level 13 und 14 löschen Sie alle Symbole bis auf einen 
Block, den Sie noch treffen müssen, um in den nächsten 
Level zu gelangen. Auf diesem Weg gelangen Sie schnell 
in Level 15 und können es ausführlich testen. Sind Sie mit 
•'defrt'L^'l zufrieden, editieren Sie anschließend Level 14. 
Mit dem gleichen Vorgehen für die anderen Level stellen 
Sie fest, ob ein editiertes Level noch Fehler hat. 

Was nützt ein Testspiel, wenn man bei einem festgestell¬ 
ten Fehler nicht sofort in den Editor zurückkehren kann? 
Kein Problem bei »Crill-Edi«: Ein Druck auf die RESTORE- 
Taste unterbricht das Spiel, auf dem Bildschirm erscheint 
das Auswahl-Menü des Editors. Unlösbare Level lassen 
sich damit schnell korrigieren. 

Sind Sie mit allen neuen Level einverstanden, läßt sich 
das Spiel vom Menü aus mit < F3 > auf Diskette speichern. 
Unter neuen Namen läßt sich eine interessante Sammlung 
von Crillion-Versionen zusammenstellen, mit denen »Cril- 
Non- nie langweilig werden Kann. 

Crillion-Fans kommen mit dem Editor voll auf ihre Kosten. 
Mit wechselnden Leveln können Sie sich immer neuen und 
anspruchsvolleren Herausforderungen stellen. 
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Llsting 1. Die Startadresse von 
»Crill-Edl» muß vor dem Start 
korrigiert werden. Geben Sie das 
Listing bitte mit dem MSE 
{Seite 159) ein. 
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LIsting 2. '•Crilllon-f» ist eine unge- 
packte Version, die sich problemlos 
editieren läßt. Bitte mit dem MSE 
(Seite 159) eingeben. 
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SPIELE-TIP 



10 N1*”"CRILL-ED1'' 

<0SS> 

340 

B=INT(P/F); A"P-B*F; P*=CHR*(A)+CHR*(B 


15 U-B:D-0 

<093> 


>; M*="" 

<133> 

60 PRINT"<CLR>BITTe CRILL-EDI /{2SPflCE>DIS 


350 

C-B: GOSUB 210: C=A; GOSUB 210 

<119> 

K IN LAUFWERK BC3SPACE,I>OWN>EINLEEEN UN 
D TASTE DRUECKEN" 

<154> 

360 

PRINT "<DOWN,SPACE>HEX!{2SPACE>")M*;" 
DEZIMAL! ",-B*F+A 

<216> 

65 PDKE 19a,0:WAIT 195,1 

<837> 

390 

J«LEN(N*)! IF J-V THEN 410 

<210> 

80 N$=Nl«:P-676 

<138> 

400 

FOR X-0 + 1 TO V:N*-N*i-CHR*<160):NEXT 

<171> 

110 U-lil Q-32j F-2S6I N*>-LEFT* <N*, V) 

<147> 

410 

OPEN l,U,15l OPEN 2,U,2,"4" 

<DD7> 

128 H*«"0123456789ABCDEF"; Z *=CHR*(0 > 

<0B2> 

420 

GOSUB 620: T»ie: Sil 

<B10> 

130 T*=RIBHT$<STR*<D),1)t OPEN 1,U,15,"I"+ 


430 

PRINT#I,"U1:"52|D}TsSi BOSUB 620 

<166> 

T*: GOSUB 620 

<14B> 

440 

PRINT#1,"B-P:"j250l GET#2,A$,B* 

<161> 

140 T*-T»+"!"4-N*i OPEN 2,U,2,T5+",P.R'‘ 

<012> 

450 

T-ASC(A*+Z*)! 9-ASCtB*+Z»)! H-2 

<102> 

150 INPUT#1,E,M»,J,Kä' IF E-0 THEN 240 

<091> 

460 

PRINT#1,"B-P:"!2{Hs QET«2,T* 

<156> 

160 CLOSE l! CLOBE 2: PRINT "<DOWN,SPACE>P 


470 

C-ASC(TS+Z*)j IF CO130 THEN 510 

<234> 

ROGRAMMiC28PACE>";N«: 

<000> 

480 

QET#2,A»,B*: .. FOR X“1 TO V 

< 06 a> 

170 IF E-Ö2 THEN PRINT " NICHT 3EFUNDEN"! 


490 

BET«2,T»l F»«F*+T*: NEXT 

<163> 

GOTO 200 

<104> 

500 

IF F»-N* THEN 530 

<241> 

180 IF E-64 THEN PRINT " FALSCHER FILETYP" 


510 

H-H+Q: IF H<F THEN 460 

<192> 

: GOTO 200 

<117> 

520 

GOTO 430 

<B12> 

190 PRINT "CDOWN,SPACE>DISK READ-ERRGR"|Es 


530 

A>ASC(A«+Z*)t B*ASC(B*+Z*> 

<1B4> 

END 

<173> 

540 

PRINT#l,"Uls":2;DsAiB: GOSUB 620 

<106> 

200 FOR J»1 TO 2000: NEXTi GOTO 70 

<112> 

550 

PR I NT# 1, " B-Pt ’■ J 2j 2; PR I NT#2, P#; 

<112> 

210 J-INT(C/V)l K-C-J*V 

<122> 

560 

PRINT#1,"U2s"525D;A}Bs GOSUB 620 

<255> 

220 M»-ri»<-MID* (H», J+1.1) ■►MIDS (H*,K+1 , 1) 

<144V 

570 

CLOSE 2: GOSUB 620i CLOBE 1 

<250> 

238 RETURN 

<032> 

610 

PRINT "tCLRlFERTIGI CRILL-EDIt4SPACE>K 

240 GET#2,A*,B*r IF ST THEN 190 

250 CLOSE 2i CLOSE Is 

<023> 

<I91> 


ANN NUN GESTARTET<SPACE,DOWN>WERDEN";E 
ND 

<15B> 

260 A»ASC(A«+Z«) : B°ASC (B«h-ZS) 

<i6e> 

620 

INPUT#l,E,M»,J,KsIF E-0 THEN RETURN 

<207> 

270 C-8s GOSUB 210; C-A: BOSUB 210 

<039> 

630 

PRINT "{DOWN,SPACETERROR; "lEjMSsJjK 

<114> 

280 PRINT "CDOWNIOIE STARTADRESSE VON "jN* 


640 

CLOSE 2a CLOSE 1: END 

<055> 

; ■■ IST; " 

290 PRINT "tDOWN,SPACE>HEXADEZinAL: "jM*;" 
DEZIMAL: "5B*F+A 

<17B> 

<245> 

Listlng 3. »Change Crlll*Edi> ändert automatisch 

300 PRINT "UND WIRD GEAENDERT AUF DEZIMAL; 


die Startadresse des Editors auf den Originalwert. 

...p 

<116> 

Bitte mit dem Checksummer (Seite 159) eingeben. 
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Chedtsummer 
und MSE 

Diese beiden Programme sind unentbehriich 
beim Abtippen unserer Listings. Sie heifen, 
Tippfehier vor ailem bei Maschinenprogram¬ 
men zu vermeiden und sparen eine Menge Zeit. 

N obody is perfect. Jeder Computer-Fan, egal ob bluti¬ 
ger Anfänger oder ausgefuchster Profi, macht beim 
Abtippen von Programmen Tippfehler. Diese Fehler 
später zu finden, kann ein langwieriges Unterfangen sein. 

Deshalb haben wir für Sie die Programme »Checksum¬ 
mer V3« und »MSE» (MaschinenSpracheEditor) entwickelt. 
Der Checksummer ist für Basic-Programme und der MSE 
für Maschinensprache-üstings zuständig. 

Der Checksummer 


Zuerst einmal müssen Sie das Checksummer-Programm 
(siehe Listing 1) abtippen. Dabei sollten Sie äußerst sorgfäl¬ 
tig Vorgehen, vor allem bei den Zahlen in den DATA-Zeilen 
20 bis 30. Wenn Sie trotzdem noch einen Tippfehler 
gemacht haben, meldet sich das Programm später mit 
einem entsprechenden Hinweis. Wenn Sie fertig sind, spei¬ 
chern Sie das Programm auf Diskette oder Kassette. 

Jetzt geht es los: .. - c 

1. Starten Sie den Checksummer durch die Eingabe von 
»RUN« und das Drücken der RETURN-Taste. 

2. Wenn die Meldung »Checksummer aktiviert...« auf dem 
Bildschirm erscheint, haben Sie keinen Tippfehler 
gemacht und der Checksummer ist nun eingeschaltet. 

3 . Zum Löschen des Basic-Programms geben Sie bitte 
»NEW« ein. Keine Angst, der Checksummer selbst wird 
dadurch nicht gelöscht. 

4. Nun können wir den Checksummer testen. Geben Sie 
bitte folgende Zeile ein und drücken Sie die RETURN-Taste: 

1 REM 

In der linken oberen Bildschirmecke sehen Sie nun die 
Prüfsumme über die eben eingegebene Basic-Zeile. Sie 
muß <63> lauten. Dem Checksummer ist es übrigens 
egal, ob Sie »1 REM« oder »1REM» eintippen. Nur innerhalb 
von Anführungszeichen ist die richtige Anzahl an Leerzei¬ 
chen wichtig. Diese Prüfsummen erscheinen (sofern Sie 
den Checksummer eingeschaltet haben) immer dann, wenn 
Sie eine Basic-Zeile eintippen und dann die RETURN-Taste 
drücken. In der 64’er finden Sie die Prüfsumme immer am 
Ende jeder Programmzeile. 


CTRL Steht für Control-Taste, so bedeutet ICTRL+A], daS Sie die Control-Taste und die Taste -A- drücken müssen. Im folgenden steht: 

[DOWN] 

Teste neben rechtem Shift, 

[SPACEI 

Leertaste 

[RVSON] 

Control-Taste & 9 


Cursor unten 

(SHIFT-Spacel 

Shift-Taste & Leertaste 

[RVOFF! 

Control-Taste & 0 

lUPj 

Shift-Taste & Taste neben 

[F1]bis|Fej 

Funktionstasten 

[ORANGE] 

Commodore-Taste & 1 


rechtem Shift; Cursor hoch 

[RETURN! 

Relurn-Taste 

[BROWN] 

Commodore-Taste & 2 

iCLR] 

Shift-Taste & 2. Taste 

[BLACK] 

Control-Taste & 1 

[ÜQ.RED] 

Commodore-Taste & 3 


ganz rechts oben 

[WHITE! 

Control-Taste & 2 

[GREY 1j 

Commodore-Taste & 4 

IINSTJ 

Shift-Taste & Taste 

(REOj 

Control-Taste & 3 

IGREY 2] 

Commodore-Taste & 5 


ganz rechts oben 

[CYAN! 

Control-Teste & 4 

[LIG.GREENI 

Commodore-Taste & 6 

IHOME! 

2. Taste von ganz rechts oben 

[PURPLE] 

Control-Taste & 5 

[LIG.BLUEJ 

Commodore-Taste 8 7 

IDEL! 

Taste ganz rechts oben 

[GREEN] 

Control-Taste & 6 

[GREY 3] 

Commodore-Taste & 8 

IRIGHTl 

Taste ganz rechts unten 

[BLUE! 

Control-Taste & 7 

Tabelle 1. 


ILEFTJ 

Shift-Taste & Taste unten rechts 

[YELLOW! 

Control-Taste & 8 

Die Steuerbefehle in den Listings 



10 PRINT'XHECKSUMMER FUER C 64" 

11 PBINT:PEINT"EINEN HOMENT, BITTE ..." 

12 FOR 1=028 TO 6e4-READ A:POKE I,A!PS=PS+ 
A:NEXT I 

13 IF PS05765 THBN PRINT "TIPPFEHLER IN DE 
N ZEILEN 20 BIS 22":END 

14 SYS 828:PS=0;POR 1=58464 TO 5e583;HEAD 
A:POKE I,A;PS=PS+A!NEXT I 

15 IF PS016147 THEN PHINT'TIPPFEHLER IN D 
EN ZEILEN 22 BIS 30":END 

IS POKE l.S3:POKE 42289,96:POKE 42290.228 

17 PBINT'CHECKSUMMER AXTIVIERT." 

18 PRINT:PaiNT" AÜSSCHALTEN ; P0KE1.5S ODE 
R"SPC(27) '■<RUN/STOP+RESTORE>" 

19 PEINT:PEINT" ANSCHALTEN : POKEl,53" 

20 DATA 169,0.133.254,162.1.189,93,3,133.2 
55.180,0.177.254 

21 DATA 145.254,136.208.249.230.255.165,25 
5,221,95.3.208.238.202 

22 DATA 16,230,96,160,224.192,0,160.2,169. 
0,170.133,254,177 

23 DATA 95.240,40,201.32,208.3,200,208,245 
.133,255.138,41.7 

24 DATA. 170.240,14.72.165,255,24.42.105,0, 

202.203.249.133.255 

25 DATA 104.170,232,165,255,24.101,254.133 
.254,76.111.228,192,4 

26 DATA 48,219,196.214,165.214,72.162,3,16 
9,32.157.1.4,189 

27 DATA 212.228,32.210,255,208.12,0.92.72, 
32.201.255,170,104 

28 DATA 144.1.138,96.202,16.228,166,254,16 
9,0.32,205,189,169 

29 DATA 62,32,210,255.104,133,214.32.103,2 

29.168.141.32.210.255 

30 DATA 78,128.164.9.60.18.19 
e 64'er 

Listing 1. Der »Checksummer 64 V3<> für Basic-Listings 


5 PRINT CHR*(14) <242> 

10 PRINT"<CLR>" <254> 

3B NT " <4D0HN , 2SPflCE > 3EST {SPACE , BLUE, 6SP 

ACEl" <BZ2> 

40 PRtNT"773S3SS3SSSS83mBmn339BS" <ieB> 


e e4''er 

Bild 1. Die Bedeutung der Steuerzeichen 
wird im nachfolgenden Text erklärt 

In Zeile 10 müssen Sie nach den Anführungszeichen die 
Tasten <SHIFT CLR/HOME> drücken und nicht die 
Klammern mit dem Wort CLR eingeben. In Zeile 20 
drücken Sie nach den Anführungszeichen die CBM- 
Taste und den Buchstaben < Q >, gefolgt von mehreren 
SHIFT- und Stern-Tasten und zum Schluß die CBM- 
Tasteundden Buchstaben <W>. In Zeile 30 ist es vier¬ 
mal die CURSOR-abwärts-Taste, gefolgt von zweimali¬ 
ger Leertaste, dann < SHIFT T> und normal EST, zum 
Schluß noch einmal die Leertaste, die Farbtaste Blau 
<CTRL 7> und sechsmal die Leertaste. Zeile 40 
besteht lediglich aus mehreren Grafikzeichen, die mit 
der CBM-Taste und < B> erzeugt werden. 


SONDERHEFT 43 


159 















EINGABEHILFEN 


Diese Zahlen dürfen Sie NICHT mit abtippen. 

Als Beispiel sehen Sie Bild 1. Am rechten Rand jeder 
Spalte sehen Sie die Prüfsummen in eckigen Klammern. 

Damit sind wir beim zweiten wichtigen Punkt: Sehen Sie 
sich die Zeile 240 von Listing 2 genauer an. Nach dem ersten 
Anführungszeichen nach dem PRINT-Befehl sehen Sie eine 
geschweifte Klammer [ ]. Immer, wenn Sie in einem unserer 
Listings diese Klammern sehen, dürfen Sie das, was inner¬ 
halb der Klammern steht, nicht eintippen. Sie müssen die 
entsprechende Taste drücken. Beispiel: 

10 PRINT "fCLRl" 


bedeutet: Nach dem Anführungszeichen die »Bildschirm- 
Iöschen"-Taste drücken (<SHIFT CLR/HOME>). In Ta¬ 
belle 1 sehen Sie eine Zusammenfassung aller möglichen 
Steuerlasten mit dem entsprechenden Klartext. 

Weiterhin sehen Sie in Bild 1 (Bedeutung der Steuerzei¬ 
chen) in Zeile 30 ein unterstrichenes >T» nach der Klammer. 
Das bedeutet, daß Sie ein »T« zusammen mit der SHIFT- 
Tasle drücken müssen, also < SHIFTT >, Wenn ein Zeichen 
»überstrichen« ist. müssen Sie dieses zusammen mit der 
CBM-Taste eingeben. Die CBM-Taste befindet sich ganz 
links unten auf der Tastatur und hat die Aufschrift »C=«. 


16*0 SEM DIESES PROGRAMM ERZEUGT DEI^ <210> 

110 REH MSE VI.1 AUF DISKETTE. <039> 

120 REM BESITZER EINER DATASETTE <17B> 

130 REM MUESSEN DIE ’8’ AM ENDE VON <145> 

140 REM ZEILE 343 IN EINE ’l' AENDERN! <176> 

150 REM <212> 

230 IF PEEK(44)<>32 THEN PRINT"CCLR3SIE HA 
BEN VERGESSEN, DIE POKES EINZUGE- BEN! 

•■:END <050> 

240 PRINT'CCLRJ"i:DIM H(75)-FOR 1=0 TO 9 <042> 

250 Ht48+I!=I:H(65+I)=I+10:NEXT-Z=1000 <136> 

260 FOR 1 = 2040 TO 3755 STEP 20:PRINT''CHOME 

>ICH LESE ZEILE:"Z <253> 

261 FOR N=0 TO 19:READ AS;IF LEN(AS)<>2 TH 

EN 900 <062> 

262 IF PEEK(63)+PEEK<64)*256<>Z THEN 800 <0U> 

270 H=ASC(LEFTS(AS,l)):L=ASC(RiaHT$(A$,l)) <199> 

280 D=H(HJ*ie+H(L) ;S=S<-D:POKE I+N,D <165> 

290 NEXT'READ V:IF SOV THEN 900 <139> 

300 5=0:Z=Ztl:NEXT:R=PEEK<2111):H=PEEK(210 

61 <126> 

301 POKE 53280,R:POKE 53281.H:POKE 646,R:P 
RINT"<CLR>DIE DATA-ZEILEN SIND FEHLERF 

REI!'■ <080> 

302 PRINT'SIE KOENNEN NUN DIE FARBEN DES M 

SE" <209> 

303 PRINT"EINSTELLEN.PRINT"<2DOWN,SPACE, 

RVSONJDRUECKEN SIE <!>. <2> ODER <9> 5^0^ 

304 PRINT''CD0WN,2SPACE><:1> - RAHMEN-/SCHRI 

FTFARBE ?013> 

305 PRINT"C2SPACE><2> - HINTERGRUNDFARBE <233> 

306 PRINT"<DOWN,2SPACE><9> - FARBEN GEBERN 

EHMEN <158> 

307 PRINT"<2DOBNIFARBE <1>;•R:PRINT"FARBE 

<2>;''H <066> 


308 GET A:IF A=0 THEN 308 t210> 

309 IF A=1 THEN R=(R+1)AND 15 <090> 

310 IF A=2 THEN H=<H+1)AND 15 <086> 

311 IF A=9 THEN 340 <217> 

312 GOTO 301 • <034> 

340 POKE 2106,H:POKE 2111,R <153> 

342 POKE 631,19;POKE 632,13:POKE 198.2 <135> 

343 PRINT"<CLR5SAVE"CHR$(34)"MSE V1.1"CHRS 

!34)".8 <091> 

344 POKE 43.1:P0KE 44.e:POKE 45,172;POKE 4 

6,14;END <140> 

800 PRINT''CCLR,RVSON5SIE HABEN ZEILE"Z''CLE 

FT.SPACE>VERGESSEN:":A=PEEK<646)AND 15 <124> 
810 POKE 646>PEEK(53201)AND 15:PRINT'LIST" 

Z-2''"Z+2:POKE 646,A <224> 

820 GOTO 920 <082.' 

900 PRINT"CCLR.RVS0N>S1E HABEN EINEN TIPPF 

EHLER aEMACHT:":A=PEEK(646)AND 15 <154> 

910 POKE 646,PEEK(53281)AND 15:PRINT''LIST" 

Z:POKE 646.A <173' 

920 POKE 631,19!P0KE 632,17:POKB 633,13:P0 

KE 190.3:END <126> 

1000 DATA 00,0B,08,0A,00,9E,32.30,36,31,00 

.00,00,A2.08,A9,36,85,A4,A9, 1247 <113> 

1001 DATA 0e,SS,A5,A9,00,8S,A6,A9,B0,8S,A7 

,A0,00,B1,A4,91.A6.C8,D0,FB, 2888 <054> 

1002 DATA Ee,A5,E6,A7,CA,D0.F2.A9,36,85,01 

,4C.00,B0,20,D1,B1,Ag,00,eD, 2781 <096> 

1003 DATA 21.D0,A9,0F,6D,20,D0,BD,aE,02,A0 

.B3,A9,74,20,FF,B1,A0,B3,Ag, 2679 <089' 

1004 DATA B9.20.FF,Bl,A0,00,20.CF,FF,99.01 

,02.C8,C9.0D.D0,F5.88,F0.D2. 2912 <217> 

1005 DATA C0.11 ,90,02,A0,10.SC,00,02,20.EA 

■Bl,A0.B3,A9,CF,20,FF,B1,20, 2327 <04S> 

1006 DATA 8E,B4,85.FC.35,62.20,8E.B4,85,FB 

.85.61,20,A7,B4.D0.20,A0,B3. 2864 <199> 

1007 DATA A9,E5,20.FF,B1,20,BE,B4,B5.60,20 


,6E.B4,B5,5F,20,A7,B4,D0,0A, 2624 <091> 

1006 DATA A5.61.C5,SF,AS.62.E5,60.g0,06,20 

.43.B3.4C,3A,B0,A9,AA,A0,00, 2379 <167> 

1009 DATA EA.EA,E6.FB,D0,02,E6,FC.20.3F.B2 

.90,EF,4C,FB.B4,A2,02.86,58, 3190 <041> 

1010 DATA A9,AB,A0,9D.20.F2,B1,20,E4.FF,F0 

,FB,C9,30,90,0C.C9,47,B0.0e, 2970 <231> 

1011 DATA CB,3A,90,0B,C9>41,B0.07.C9,14.D0 

,0F,4C.0B.B1.20,D2,FF,A6,58, 2322 <121> 

1012 DATA 95,F7,C6,58,D0,D2,S0.AE,eD,02,F0 

,26,C9,0C,D0,03,4C.0B,B6,C9. 2685 <0S7> 

1013 DATA 13,D0,03,4C,BB,B5,C9,0D,D0,03,4C 

,BA,B4,Cg,10,D0,03.4C,68,B5. 2262 <225> 

1014 DATA Cd,0E,D0,06,20,5F,B4.4C,64.Bl,4C 

.g2,B0,A5,Fg,20,02,Bl ,0A,0A. 213 2 <208.' 

1015 DATA 0A.0A.85,F9,A5.F0.20,02,B1,05,F9 

.60,C9.3A,90,02,69,06,29,0F. 1950 <092> 

1016 DATA 60.A6>S9.E0,0e,90.1F,A6.5e.E0,02 

.B0,06.20,D2.FF,4C,8E,B0,C6, 2509 <1B8> 

1017 DATA 59,A0,14.A9.92.20.F2,S1,CA,D0,FA 

,84,57,6B>68.4C,8B,B1,A6,D3, 2891 <197> 

1013 DATA E0.08,B0,03.4C,92,B0,20.D2,FF.A6 

,58,E0,02,90.09,C6.59,20.D2. 2468 <049' 

1019 DATA FF,C6,58,D0,F9.4C.SE.B0,4B,4A,4A 

,4A.4A,20,59,B1.68.29,0F.C9> 2419 <035> 

1020 DATA 0A,g0,02,6S,06,6g,30.4C,D2,FF,A2 

^ ^_,FC,9A, 20,Dl,Bl,20.48,82.20. 2261 <073> 

EA.Bl ,20,9F,B2.A5,FC, 20,4E.B1 , A5 
.FB,20.4E,B1.20,ED,Bl,Ag.3A. 2860 <14B> 

1022 DATA A2.20.20.F2.B1,A9.00.65.59.20,8E 

,B0.20.ED.B1■A4,59,20,EF.B0, 2530 <233> 

1023 DATA 91,FB,Ce,84.59,C0,03.90.EC.20.10 

,B2,A9,12.20,D2,FF.20.8E.B0. 2657 <10S> 

1024 DATA 20,EF,B0,C5,FF,F0,0D.20,43,B3,A9 

,14,A0,14,20,F2,B1.4C,A2.B1. 2665 <034> 

1025 DATA A9,92.20.D2,FF,20,33,B2,20,E0,B2 

.20,3F,B2,90,9F,4C,BB,B5,A9, 2648 <123> 

1026 DATA 93.20.D2.FF.A2.00.A9,03.99.00,08 

,99,00,99,99,00,DA,SD.00,DB, 2476 <237> 

1027 DATA Eö.D0.EF,60,A9.0D.2C.A9.20.4C.D2 

,FF.20.D2.FF,90.4C,D2,FF.20, 2965 .a60> 

1028 DATA E4,FF,F0,FB,60,a4,5D.e5.5C,A0,00 

,B1,5C,F0,06,20,D2,FF,Ce.D0, 3100 <077> 

1029 DATA F6,60,AS,FB,e5,5A,A0.00,e4.5B.Bl 

,FBil8,65,SA,85.SA.90,02,E6, 2606 <iS6> 

1030 DATA SB,06,5A.26,5B,C8,C0,06,90,EC,AS 

,5A.65,5B,85,FF,60,18,A5,FB, 2467 <219> 

1031 DATA 69.0S.eS.FB.g0.02.E6,FC.60,A5,FB 

.C5,5F.A5,FC,E5,60,60,A0,B3, 3106 <183' 

1032 DATA Ag,F6,20,FF.Bl.A0,01.Bg.00,02,20 

.D2,FF,CC.00.02.Ce.60.F4.A9. 2692 <098' 

1033 DATA 14,ED,00,02,AA,20,ED.Bl,CA,D0,FA 

,A5,62,20.4E.B1,A5.ei,20,4E. 2457 <060> 

1034 DATA Bl.20,ED,Bl,AS,60,20,4E,Bl,AS,5F 

,20.4E,B1,EA,EA,EA,EA,EA,EA, 3122 <190> 

1035 DATA EA.EA.24.5E.10.01.60,A9.12.20.D2 

,FF.A2,26,20,ED,B1,CA,D0,FA, 2703 <067> 

1036 DATA A9.92,4C.D2.FF,A5,D6,C9.16.B0.01 

,60.A9.A0,SS,A4,Ag,78,SS,A6, 2945 <204> 

1037 DATA A9.04,85.A5,85.A7,A2,13.A0,27.B1 

,A4,91,A6,B8,10,F9,CA,F0.ig, 2671 <208' 

1038 DATA 16,AS,A4.69,2e.e5,A4,80.02,ES,A5 

,18,A5,A6,69,28,85,A6.90,E0, 2503 <2S1> 

1039 DATA E6,A7,4C,B6.B2,A9,91.4C,D2,FF,A9 

,0F,3D,16,D4,A9,00,BD.05.D4. 2776 <000' 

1040 DATA A9.F7.eD.06.D4.A9,ll.eD,04,D4,A9 

.32.6D.01,D4.A9,00.8D,00.D4. 2413 <126> 

1041 DATA A0,60,20,09,B3,A9,10,eD,04,D4,60 

.A2.FF,CA,D0.FD,88,D0.Fe,60, 2914 <240> 

1042 DATA A9,0F.8D.18.D4,A9,2D,8D,05,D4,A9 

.A5.BD,06,D4.A9,21,8D,04,D4, 2385 <119> 

1043 DATA A9.07,8D.01.D4.A9,05.eD,00,D4,A0 



160 


SONDERHEFT 43 







EINGABEHILFEN 


.FF,20,09,B3.A9,20.BD,04,D4, 2250 <078> 

1044 DATA A9,00,BD.01,D4.6D.00.04.60,38,20 

,F0,FF,8A.48,98,46,18,A0,06, 2179 <175> 

1045 DATA A2.ia.20.F0,FF,A0.B4.A9,0A.20.PF 

.B1.20,12,B3.20,E4,FF,F0,FB, 2931 <093> 

1046 DATA A2,lD,A9,14,20.D2,FF,CA,D0.FA,e8 

,A8.6Ö,AA,18,4C.F0,FF,0D,0D, 2704 lOee;* 

1047 DATA 0D,20.20.20,20,20,20,20,40,41,53 

.43,4S,49,4E,45,4E,53.S0,52, 1144 <216' 

1048 DATA 41,43,48,45,20,20,20,45,44,49,54 

.4F.52.20,0D,00.20,20.20.20. 1023 <038> 

1049 DATA 20,20.20,20,S6,4F.4E,20,4E,2E,4D 

.41.4E,4E,20.26.20,44.2E.57. 1128 <206> 

1050 DATA 45,49.4E,45.43,4B,00,00,00,00,20 

.20.20,50.52.4F.47.52,41 ,4D, 1102 '.117> 

1051 DATA 40,4E,41,40,45,20,3A,20,00,00.00 

,20,20.20.53.54.41.52,54,41, 1073 <095> 

1052 DATA 44,52,45,53,53,45,20,3A,20,24.00 

.00,00,20,20,20.45,4E.44,41. 1014 <129> 

1053 DATA 44,52,45,53,53,45.20.20.20,3A,20 

.24,00.92,01,01,50,52,4F,47, 1136 <228> 

1054 DATA 52.41,40,40.20.3A,20,00,12.20.20 

,2A.2A,2A,20,46.41,4C,53,43, 1024 <027> 

1055 DATA 48.45.20.45.49.4E.47,41.42,45,20 

,2A.2A,2A,20.20.g2,00.0O,0O. 1058 <09e> 

1056 DATA 2A,2A.2A.20.45.4E,44.45.20,2A,2A 

,2A,00,13,01.20,20.12.44.92, 916 <153> 

1057 DATA 49.53.4B,20.4F,44,45,52,20,12,54 

.92.41,50,45.00.00,13,20,20, 1151 <035> 

1058 DATA 49.2F,4F.20,20.20.46,45,48,40,45 

.S2,00,20.Ol.Bl,20,48,B2>A0i 1606 <012> 

1059 DATA B3.A9,CF.20.FF.B1.20.0E,B4,e5,FC 

.20,8E>B4.85,FB,C5.61.A5,FC, 3207 <251> 

1060 DATA E5.62,90,23.A5.FB.C5,5F,A5,FC,E5 

,60.B0,19.20,A7,B4,D0,14.60, 2860 <1I2> 

1061 DATA 20.A7,B4.F0.0C.85.F9.20,A7,B4,F0 

i05,85,F8,4C,EF.B0i68.68,20. 2749 <088) 

1062 DATA 43,B3,4C.5F,B4.20.CF,FF,C9,4C,D0 

.09.20,01,Bl.20,48,B2.4C.0B. 2372 <046> 

1063 DATA B6.C9.0D.60.A9.00,85,5E.20,5F,B4 

.20,EA,B1.20,0O,B5.24.5E,30. 2042 <120> 

1064 DATA 05,20,E4,FF,F0.FB,20,E1,FFiF0,26 

.20.9F.B2.24.5E,10.09,20,4E, 2435 iS'SSf ’ 

1065 DATA B5,20,0DiB5.20.60.B5,20,33,B2.20 

.3F,B2.90.D7,A0.B4.A9,28,20. 2190 <207.> 

1066 DATA FF,B1.20,E4,FF,C9i0D,D0,F9,Ag,00 

.85,5E.A5.ei.B5.FB,A5,62.85. 3056 <240> 

1067 DATA FC,20,E0,B2,4C,64,B1,A5,FC,20.4E 

.Bl,A5.FB.85.FF,20.4E,B1,A9. 3003 <221> 

1068 DATA 20,A0,3A,20,F2,B1.A0.20.20,ED,B1 

.B1.FB,20.4E.B1,C6.C0,08.90. 2566 <070> 

1069 DATA F3.20.ED,B1,24.5E.30,03,A9.12,2C 

.A9,20.20.D2.FF,20,10,B2,A5, 2190 <059> 

1070 DATA FF,20.4E,B1,A9,92.20,D2,FF.4C,EA 

.Bl,A9,FF,65iB8,8S.B9,A9.04. 3073 <029> 

1071 DATA 85,BA.20.C0,FF.A2.FF,4C.C9,FF,20 

.CC,FF,A9,FF,4C,C3,FF,20,5F. 3315 <189> 

1072 DATA B4,A9,80,85.5E.20,4E,B5.22,4B,B2 

,A2.24.A9.2D.20,D2.FP.CA.D0. 2596 <lllr> 

1073 DATA FA.20.EA,B1,20,EA,B1,20,S0,B5,4C 

.Cl,B4.20.Be.B5.A6,SF.A4,60. 2812 <015> 

1074 DATA A9.61,20,D8,FF,B0,0A,20,B7,FF,29 

.BF.D0.03,4C.FB,B4,A9,01,20, 2S77 <201> 

1075 DATA C3.FF.20,68,B6,A0,B4,A9,4F,20.FF 

.B1.20.F9,B1.4C.FB.B4,20,68. 2921 <237> 

1076 DATA B6,A9,37,A0,B4,20.FF,B1,20.F9.B1 

.A2.08.C9.44,F0,06,A2,01,C9, 2717 <213> 

1077 DATA 54iD0iFl.Ae,01.A8.20,BA.FF.A0.00 

,E0.01,F0,1A.A9,40,80,20,02, 2403 <101> 

1078 DATA Ag,3A,8D,21,02,39,01,02.99,22.02 

.C8,CC,00.02,90,F4,C8.C8.D0, 2182 <127> 

1079 DATA 0C.B9,01,02.99.20,02.C8.CC.00.02 

,D0,F4,98,A2,20,A0.02.4C,BD, 2018 <025> 

1080 DATA FF.20.B3.B5.A5.BA.Cg.0a,g0.33.A6 

.B8,86,57,A9i01I20,C3.FF.A9, 2800 <022> 

1081 DATA 60,85.B9,20.C0,FF,B0.2S,A5,BA,20 

,B4,FF,A5,B9,20,96,FF,20.A5, 2911 <0S3> 

1082 DATA FF,85.61,A5,90,4A,4A,B0,13,20,A5 

,FF,85.62,20,AB.FF,A5,57.85. 2663 <214> 

1003 DATA B9.A9,00,20,D5,FF,90,03,4C,A3.BS 

,86,5F,84,60.A5 .BA.C9.01 .D0. 2639 <131;' 

1084 DATA 0A,AD.3D.03.85,61,AD.3E,03,8S,62 

,4C,FB,B4,A9,13,20,D2,FF,A2, 2300 <120< 

1085 DATA IC,20,ED,Bl,CA,D0.FA,60,00,00,00 

.00,00,00.00.00,00,00,00,00, 1230 <143> 

e 64’er Listing 2. Der MSE-Lader 


Der MSE 


Der MSE dient zur Eingabe von Maschinensprache-Pro¬ 
grammen. Ais erstes müssen Sie den sogenannten 
»MSE-Lader« (Listing 2) abtippen. Dieser erzeugt erst das 
eigentliche MSE-Programm auf Diskette oder Kassette. 
Wichtig: Vor dem Eintippen des MSE-Laders müssen 
Sie unbedingt ein paar Befehie eingeben (ohne 
Basic-Zeiiennummer): POKE 44,32: POKE 8192,0; NEW 

Jetzt können Sie beginnen, das Listing2 abzutippen. Der 
MSE-Lader erkennt zwar, wenn Sie beim Eintippen der DA- 
TA-Zeiien einen Fehier gemacht haben, aber wenn Sie 
ganz sicher gehen möchten, sollten Sieden Checksummer 
vor dem Eintippen aktivieren. Die Prüfsummen für den 
MSE-Lader finden Sie am Ende der jeweiligen Pro¬ 
grammzeilen. 

Wenn Sie das Listing 2 nicht auf einmal abtippen möch¬ 
ten, müssen Sie vor jedem neuen Laden des Programms 
unbedingt die oben genannte POKE-Zeiie eingeben! 

Wenn Sie aiies richtig gemacht haben und das Pro¬ 
gramm fehierfrei abgetippt wurde, speichert es sich nach 
dem Starten seibst auf Diskette oder Kassette unter dem 
Namen »MSE VI .0«. Dieses fertige MSE-Programm iaden 
Sie dann bei Bedarf wie ein normaies Basic-Programm und 
starten es mit »RUN«. 

So arbeitet man mit dem MSE 

Als erstes möchte der MSE den Namen des zu bearbei¬ 
tenden Programms wissen. Dieser steht in der ersten Zeile 
unserer MSE-Listings. Dann müssen Sie die Start- und 
Endadresse des Programms eingeben. Dies sind die ietz- 
ten beiden vierstelligen Hexadezimalzahlen in der ersten 
Zeile unserer Listings. 

Wenn Sie ein Programm von Diskette oder Kassette 
lad©n«»c.’len, um an einer bestimmten Stelle weiterzutip¬ 
pen oder noch eine Korrektur vorzunehmen, geben Sie auf 
die Frage nach der Startadresse ein »L« ein. Danach müs¬ 
sen Sie < D > oder <T> drücken, je nachdem, ob Sie von 
Diskette oder Kassette (»tape«) laden möchten. Wenn das 
Programm unter diesem Namen nicht auf der Diskette vor¬ 
handen ist oder ein sonstiger Ladefehler vorlag, meldet 
sich der MSE mit »l/O-ERROR«. In diesem Falt drücken Sie 

< RUN/STOP RESTORE> und geben einfach noch einmal 
»RUN« ein. 

Beim Abtippen geben Sie nach und nach die abgedruck¬ 
ten Buchstaben und Zahlen des jeweiligen Listings ohne 
die Freiräume dazwischen ein. Wenn Sie in einer Zeile 
einen Tippfehler gemacht haben, meldet sich der MSE 
sofort mit einem Brummton und der Meldung »EINGABE¬ 
FEHLER«. Nach einem Druck auf die RETURN-Taste kön¬ 
nen Sie mit der DEL-Taste den Fehler korrigieren. Wenn Sie 
das gewünschte Programm vollständig eingegeben 
haben, speichert es der MSE automatisch auf Diskette 
oder Kassette. 

Bei längeren Listings ist es unwahrscheinlich, daß Sie 
das komplette Programm auf einmal eingeben. Sie können 
Ihre bisherige Tipparbeit jederzeit durch <CrRL S> auf 
Diskette oder Kassette speichern und Ihr Werk später fort¬ 
setzen. Sie sollten sich dann allerdings im Heft markieren, 
wie weit Sie beim Abtippen gekommen sind! Später geben 
Sie dann nach dem Laden des ersten Programmteils 

< CTRL N > ein und auf die dann folgende Frage nach der 
Startadresse die Zeilennummer (Adresse), bei der Sie auf¬ 
gehört haben zu tippen. 

<CTRL M> erlaubt Ihnen jederzeit. Ihr Werk listen zu 
lassen. Durch <SPACE> können Sie weiterlisten lassen 
und durch <RUN/STOP> das Listen abbrechen. 

Wenn Sie einen Drucker besitzen, können Sie das Pro¬ 
gramm auch mit <CTRL P> ausdrucken. Mit <CrRLL> 
wird das Programm noch einmal neu in Ihren C 64 geladen. 

(F. Lonczewski/N. Mann/D. Weineck/ef) 
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Mit »Dispo 128» verwalten 
Sie komfortabel Ihre Disket¬ 
tensammlung. Auch die 1581 
wird vom Programm auto¬ 
matisch erkannt. 

Strukturiertes Programmie¬ 
ren wird mit »Fiowchart» zum 
Kinderspiel. Entwerfen Sie 
das Fiußdiagramm, das da¬ 
zugehörige Basic-Programm 
erstellt »Fiowchart« auto¬ 
matisch. 

Ein Zeichenprogramm der 
Spitzenklasse ist »Gredi«. 

Der Clou: Der 80-Zeichen- 
Bildschirm wird voll aus¬ 
genutzt. 

Rasend schnell erlaubt 
»Floppy Support« umfang¬ 
reiche Diskettenmanipula¬ 
tionen für die 1570/71. 


Das Sonderheft 44 liegt ab 
dem 28.7.1989 an Ihrem 
Kiosk. 
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